Changeset 8965 for lang/perl/Acme-PSON

Show
Ignore:
Timestamp:
04/06/08 10:42:04 (8 months ago)
Author:
tomyhero
Message:

lang/perl/Acme-PSON : fix type and using Module::Install

Location:
lang/perl/Acme-PSON/trunk
Files:
4 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Acme-PSON/trunk/Changes

    r2246 r8965  
    11Revision history for Acme-PSON 
     2 
     30.02    2008-04-06/10:18 
     4        - FIX typo 
     5        - using Module::Install 
    26 
    370.01    2007-05-19/13:12 

  • lang/perl/Acme-PSON/trunk/MANIFEST

    r2246 r8965  
    11Changes 
     2inc/Module/AutoInstall.pm 
     3inc/Module/Install.pm 
     4inc/Module/Install/AutoInstall.pm 
     5inc/Module/Install/Base.pm 
     6inc/Module/Install/Can.pm 
     7inc/Module/Install/Fetch.pm 
     8inc/Module/Install/Include.pm 
     9inc/Module/Install/Makefile.pm 
     10inc/Module/Install/Metadata.pm 
     11inc/Module/Install/Win32.pm 
     12inc/Module/Install/WriteAll.pm 
     13lib/Acme/PSON.pm 
     14Makefile.PL 
    215MANIFEST 
    3 Makefile.PL 
     16META.yml 
    417README 
    5 lib/Acme/PSON.pm 
    618t/00-load.t 
    719t/01-app.t 

  • lang/perl/Acme-PSON/trunk/Makefile.PL

    r2246 r8965  
    11use strict; 
    22use warnings; 
    3 use ExtUtils::MakeMaker; 
     3use inc::Module::Install; 
    44 
    5 WriteMakefile( 
    6     NAME                => 'Acme::PSON', 
    7     AUTHOR              => 'Tomohiro Teranishi <tomohiro.teranishi@gmail.com>', 
    8     VERSION_FROM        => 'lib/Acme/PSON.pm', 
    9     ABSTRACT_FROM       => 'lib/Acme/PSON.pm', 
    10     PL_FILES            => {}, 
    11     PREREQ_PM => { 
    12         'Test::More' => 0, 
    13         'Readonly'   => 0, 
    14     }, 
    15     dist                => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', }, 
    16     clean               => { FILES => 'Acme-PSON-*' }, 
    17 ); 
     5name 'Acme-PSON'; 
     6author 'Tomohiro Teranishi <tomohiro.teranishi@gmail.com>'; 
     7all_from 'lib/Acme/PSON.pm'; 
     8requires 'Test::More' => 0; 
     9requires 'Readonly'   => 0; 
     10license 'perl'; 
     11auto_install; 
     12WriteAll; 

  • lang/perl/Acme-PSON/trunk/lib/Acme/PSON.pm

    r8953 r8965  
    44use warnings; 
    55 
    6 our $VERSION = '0.01'; 
     6our $VERSION = '0.02'; 
    77 
    88use strict; 
    … …  
    2222    local $Data::Dumper::Indent  = 0; 
    2323    local $Data::Dumper::Varname = $VARNAME; 
    24     return Dumper( $obj ); 
     24    return Dumper($obj); 
    2525} 
    2626 
    … …  
    3030    no strict; 
    3131 
    32     &_is_dumpeddata( $str ) ? eval ( $str ) : croak "No PSON Data!"; 
     32    &_is_dumpeddata($str) ? eval($str) : croak "No PSON Data!"; 
    3333} 
    3434 
    … …  
    3636    my $str = shift; 
    3737 
    38     return ( $str =~/^\$$VARNAME/) ? 1 : 0; 
     38    return ( $str =~ /^\$$VARNAME/ ) ? 1 : 0; 
    3939} 
    4040 
    … …  
    4747=head1 SYNOPSIS 
    4848 
    49  use PSON qw(obj2pson pson2obj); 
     49 use Acme::PSON qw(obj2pson pson2obj); 
    5050 
    5151 my $data = { x=> 'adfs' , y => 'adf' }; 
    … …  
    7474Tomohiro Teranishi <tomohiro.teranishi@gmail.com> 
    7575 
     76=head1 COPYRIGHT AND LISENCE 
     77 
     78Copyright (c) Tomohiro Teranishi, All rights reserved. 
     79 
     80This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.  See L<perlartistic>. 
     81 
    7682=cut