MooseX-Emulate-Class-Accessor-Fast-0.00903/0000711000175000017500000000000011254004364016610 5ustar raflraflMooseX-Emulate-Class-Accessor-Fast-0.00903/inc/0000711000175000017500000000000011254004364017361 5ustar raflraflMooseX-Emulate-Class-Accessor-Fast-0.00903/inc/Module/0000711000175000017500000000000011254004364020606 5ustar raflraflMooseX-Emulate-Class-Accessor-Fast-0.00903/inc/Module/Install/0000711000175000017500000000000011254004364022214 5ustar raflraflMooseX-Emulate-Class-Accessor-Fast-0.00903/inc/Module/Install/Can.pm0000644000175000017500000000333311254004320023255 0ustar raflrafl#line 1 package Module::Install::Can; use strict; use Config (); use File::Spec (); use ExtUtils::MakeMaker (); use Module::Install::Base (); use vars qw{$VERSION @ISA $ISCORE}; BEGIN { $VERSION = '0.91'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } # check if we can load some module ### Upgrade this to not have to load the module if possible sub can_use { my ($self, $mod, $ver) = @_; $mod =~ s{::|\\}{/}g; $mod .= '.pm' unless $mod =~ /\.pm$/i; my $pkg = $mod; $pkg =~ s{/}{::}g; $pkg =~ s{\.pm$}{}i; local $@; eval { require $mod; $pkg->VERSION($ver || 0); 1 }; } # check if we can run some command sub can_run { my ($self, $cmd) = @_; my $_cmd = $cmd; return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd)); for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') { next if $dir eq ''; my $abs = File::Spec->catfile($dir, $_[1]); return $abs if (-x $abs or $abs = MM->maybe_command($abs)); } return; } # can we locate a (the) C compiler sub can_cc { my $self = shift; my @chunks = split(/ /, $Config::Config{cc}) or return; # $Config{cc} may contain args; try to find out the program part while (@chunks) { return $self->can_run("@chunks") || (pop(@chunks), next); } return; } # Fix Cygwin bug on maybe_command(); if ( $^O eq 'cygwin' ) { require ExtUtils::MM_Cygwin; require ExtUtils::MM_Win32; if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) { *ExtUtils::MM_Cygwin::maybe_command = sub { my ($self, $file) = @_; if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) { ExtUtils::MM_Win32->maybe_command($file); } else { ExtUtils::MM_Unix->maybe_command($file); } } } } 1; __END__ #line 156 MooseX-Emulate-Class-Accessor-Fast-0.00903/inc/Module/Install/WriteAll.pm0000644000175000017500000000222211254004320024273 0ustar raflrafl#line 1 package Module::Install::WriteAll; use strict; use Module::Install::Base (); use vars qw{$VERSION @ISA $ISCORE}; BEGIN { $VERSION = '0.91';; @ISA = qw{Module::Install::Base}; $ISCORE = 1; } sub WriteAll { my $self = shift; my %args = ( meta => 1, sign => 0, inline => 0, check_nmake => 1, @_, ); $self->sign(1) if $args{sign}; $self->admin->WriteAll(%args) if $self->is_admin; $self->check_nmake if $args{check_nmake}; unless ( $self->makemaker_args->{PL_FILES} ) { $self->makemaker_args( PL_FILES => {} ); } # Until ExtUtils::MakeMaker support MYMETA.yml, make sure # we clean it up properly ourself. $self->realclean_files('MYMETA.yml'); if ( $args{inline} ) { $self->Inline->write; } else { $self->Makefile->write; } # The Makefile write process adds a couple of dependencies, # so write the META.yml files after the Makefile. if ( $args{meta} ) { $self->Meta->write; } # Experimental support for MYMETA if ( $ENV{X_MYMETA} ) { if ( $ENV{X_MYMETA} eq 'JSON' ) { $self->Meta->write_mymeta_json; } else { $self->Meta->write_mymeta_yaml; } } return 1; } 1; MooseX-Emulate-Class-Accessor-Fast-0.00903/inc/Module/Install/Makefile.pm0000644000175000017500000001600311254004320024267 0ustar raflrafl#line 1 package Module::Install::Makefile; use strict 'vars'; use ExtUtils::MakeMaker (); use Module::Install::Base (); use vars qw{$VERSION @ISA $ISCORE}; BEGIN { $VERSION = '0.91'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } sub Makefile { $_[0] } my %seen = (); sub prompt { shift; # Infinite loop protection my @c = caller(); if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) { die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])"; } # In automated testing, always use defaults if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_MM_USE_DEFAULT} ) { local $ENV{PERL_MM_USE_DEFAULT} = 1; goto &ExtUtils::MakeMaker::prompt; } else { goto &ExtUtils::MakeMaker::prompt; } } sub makemaker_args { my $self = shift; my $args = ( $self->{makemaker_args} ||= {} ); %$args = ( %$args, @_ ); return $args; } # For mm args that take multiple space-seperated args, # append an argument to the current list. sub makemaker_append { my $self = sShift; my $name = shift; my $args = $self->makemaker_args; $args->{name} = defined $args->{$name} ? join( ' ', $args->{name}, @_ ) : join( ' ', @_ ); } sub build_subdirs { my $self = shift; my $subdirs = $self->makemaker_args->{DIR} ||= []; for my $subdir (@_) { push @$subdirs, $subdir; } } sub clean_files { my $self = shift; my $clean = $self->makemaker_args->{clean} ||= {}; %$clean = ( %$clean, FILES => join ' ', grep { length $_ } ($clean->{FILES} || (), @_), ); } sub realclean_files { my $self = shift; my $realclean = $self->makemaker_args->{realclean} ||= {}; %$realclean = ( %$realclean, FILES => join ' ', grep { length $_ } ($realclean->{FILES} || (), @_), ); } sub libs { my $self = shift; my $libs = ref $_[0] ? shift : [ shift ]; $self->makemaker_args( LIBS => $libs ); } sub inc { my $self = shift; $self->makemaker_args( INC => shift ); } my %test_dir = (); sub _wanted_t { /\.t$/ and -f $_ and $test_dir{$File::Find::dir} = 1; } sub tests_recursive { my $self = shift; if ( $self->tests ) { die "tests_recursive will not work if tests are already defined"; } my $dir = shift || 't'; unless ( -d $dir ) { die "tests_recursive dir '$dir' does not exist"; } %test_dir = (); require File::Find; File::Find::find( \&_wanted_t, $dir ); $self->tests( join ' ', map { "$_/*.t" } sort keys %test_dir ); } sub write { my $self = shift; die "&Makefile->write() takes no arguments\n" if @_; # Check the current Perl version my $perl_version = $self->perl_version; if ( $perl_version ) { eval "use $perl_version; 1" or die "ERROR: perl: Version $] is installed, " . "but we need version >= $perl_version"; } # Make sure we have a new enough MakeMaker require ExtUtils::MakeMaker; if ( $perl_version and $self->_cmp($perl_version, '5.006') >= 0 ) { # MakeMaker can complain about module versions that include # an underscore, even though its own version may contain one! # Hence the funny regexp to get rid of it. See RT #35800 # for details. $self->build_requires( 'ExtUtils::MakeMaker' => $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/ ); $self->configure_requires( 'ExtUtils::MakeMaker' => $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/ ); } else { # Allow legacy-compatibility with 5.005 by depending on the # most recent EU:MM that supported 5.005. $self->build_requires( 'ExtUtils::MakeMaker' => 6.42 ); $self->configure_requires( 'ExtUtils::MakeMaker' => 6.42 ); } # Generate the MakeMaker params my $args = $self->makemaker_args; $args->{DISTNAME} = $self->name; $args->{NAME} = $self->module_name || $self->name; $args->{VERSION} = $self->version; $args->{NAME} =~ s/-/::/g; if ( $self->tests ) { $args->{test} = { TESTS => $self->tests }; } if ( $] >= 5.005 ) { $args->{ABSTRACT} = $self->abstract; $args->{AUTHOR} = $self->author; } if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) { $args->{NO_META} = 1; } if ( eval($ExtUtils::MakeMaker::VERSION) > 6.17 and $self->sign ) { $args->{SIGN} = 1; } unless ( $self->is_admin ) { delete $args->{SIGN}; } # Merge both kinds of requires into prereq_pm my $prereq = ($args->{PREREQ_PM} ||= {}); %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_, ($self->configure_requires, $self->build_requires, $self->requires) ); # Remove any reference to perl, PREREQ_PM doesn't support it delete $args->{PREREQ_PM}->{perl}; # merge both kinds of requires into prereq_pm my $subdirs = ($args->{DIR} ||= []); if ($self->bundles) { foreach my $bundle (@{ $self->bundles }) { my ($file, $dir) = @$bundle; push @$subdirs, $dir if -d $dir; delete $prereq->{$file}; } } if ( my $perl_version = $self->perl_version ) { eval "use $perl_version; 1" or die "ERROR: perl: Version $] is installed, " . "but we need version >= $perl_version"; } $args->{INSTALLDIRS} = $self->installdirs; my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args; my $user_preop = delete $args{dist}->{PREOP}; if (my $preop = $self->admin->preop($user_preop)) { foreach my $key ( keys %$preop ) { $args{dist}->{$key} = $preop->{$key}; } } my $mm = ExtUtils::MakeMaker::WriteMakefile(%args); $self->fix_up_makefile($mm->{FIRST_MAKEFILE} || 'Makefile'); } sub fix_up_makefile { my $self = shift; my $makefile_name = shift; my $top_class = ref($self->_top) || ''; my $top_version = $self->_top->VERSION || ''; my $preamble = $self->preamble ? "# Preamble by $top_class $top_version\n" . $self->preamble : ''; my $postamble = "# Postamble by $top_class $top_version\n" . ($self->postamble || ''); local *MAKEFILE; open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!"; my $makefile = do { local $/; }; close MAKEFILE or die $!; $makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /; $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g; $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g; $makefile =~ s/^(FULLPERL = .*)/$1 "-Iinc"/m; $makefile =~ s/^(PERL = .*)/$1 "-Iinc"/m; # Module::Install will never be used to build the Core Perl # Sometimes PERL_LIB and PERL_ARCHLIB get written anyway, which breaks # PREFIX/PERL5LIB, and thus, install_share. Blank them if they exist $makefile =~ s/^PERL_LIB = .+/PERL_LIB =/m; #$makefile =~ s/^PERL_ARCHLIB = .+/PERL_ARCHLIB =/m; # Perl 5.005 mentions PERL_LIB explicitly, so we have to remove that as well. $makefile =~ s/(\"?)-I\$\(PERL_LIB\)\1//g; # XXX - This is currently unused; not sure if it breaks other MM-users # $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg; open MAKEFILE, "> $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!"; print MAKEFILE "$preamble$makefile$postamble" or die $!; close MAKEFILE or die $!; 1; } sub preamble { my ($self, $text) = @_; $self->{preamble} = $text . $self->{preamble} if defined $text; $self->{preamble}; } sub postamble { my ($self, $text) = @_; $self->{postamble} ||= $self->admin->postamble; $self->{postamble} .= $text if defined $text; $self->{postamble} } 1; __END__ #line 394 MooseX-Emulate-Class-Accessor-Fast-0.00903/inc/Module/Install/Metadata.pm0000644000175000017500000003530411254004320024277 0ustar raflrafl#line 1 package Module::Install::Metadata; use strict 'vars'; use Module::Install::Base (); use vars qw{$VERSION @ISA $ISCORE}; BEGIN { $VERSION = '0.91'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } my @boolean_keys = qw{ sign }; my @scalar_keys = qw{ name module_name abstract author version distribution_type tests installdirs }; my @tuple_keys = qw{ configure_requires build_requires requires recommends bundles resources }; my @resource_keys = qw{ homepage bugtracker repository }; my @array_keys = qw{ keywords }; sub Meta { shift } sub Meta_BooleanKeys { @boolean_keys } sub Meta_ScalarKeys { @scalar_keys } sub Meta_TupleKeys { @tuple_keys } sub Meta_ResourceKeys { @resource_keys } sub Meta_ArrayKeys { @array_keys } foreach my $key ( @boolean_keys ) { *$key = sub { my $self = shift; if ( defined wantarray and not @_ ) { return $self->{values}->{$key}; } $self->{values}->{$key} = ( @_ ? $_[0] : 1 ); return $self; }; } foreach my $key ( @scalar_keys ) { *$key = sub { my $self = shift; return $self->{values}->{$key} if defined wantarray and !@_; $self->{values}->{$key} = shift; return $self; }; } foreach my $key ( @array_keys ) { *$key = sub { my $self = shift; return $self->{values}->{$key} if defined wantarray and !@_; $self->{values}->{$key} ||= []; push @{$self->{values}->{$key}}, @_; return $self; }; } foreach my $key ( @resource_keys ) { *$key = sub { my $self = shift; unless ( @_ ) { return () unless $self->{values}->{resources}; return map { $_->[1] } grep { $_->[0] eq $key } @{ $self->{values}->{resources} }; } return $self->{values}->{resources}->{$key} unless @_; my $uri = shift or die( "Did not provide a value to $key()" ); $self->resources( $key => $uri ); return 1; }; } foreach my $key ( grep { $_ ne "resources" } @tuple_keys) { *$key = sub { my $self = shift; return $self->{values}->{$key} unless @_; my @added; while ( @_ ) { my $module = shift or last; my $version = shift || 0; push @added, [ $module, $version ]; } push @{ $self->{values}->{$key} }, @added; return map {@$_} @added; }; } # Resource handling my %lc_resource = map { $_ => 1 } qw{ homepage license bugtracker repository }; sub resources { my $self = shift; while ( @_ ) { my $name = shift or last; my $value = shift or next; if ( $name eq lc $name and ! $lc_resource{$name} ) { die("Unsupported reserved lowercase resource '$name'"); } $self->{values}->{resources} ||= []; push @{ $self->{values}->{resources} }, [ $name, $value ]; } $self->{values}->{resources}; } # Aliases for build_requires that will have alternative # meanings in some future version of META.yml. sub test_requires { shift->build_requires(@_) } sub install_requires { shift->build_requires(@_) } # Aliases for installdirs options sub install_as_core { $_[0]->installdirs('perl') } sub install_as_cpan { $_[0]->installdirs('site') } sub install_as_site { $_[0]->installdirs('site') } sub install_as_vendor { $_[0]->installdirs('vendor') } sub dynamic_config { my $self = shift; unless ( @_ ) { warn "You MUST provide an explicit true/false value to dynamic_config\n"; return $self; } $self->{values}->{dynamic_config} = $_[0] ? 1 : 0; return 1; } sub perl_version { my $self = shift; return $self->{values}->{perl_version} unless @_; my $version = shift or die( "Did not provide a value to perl_version()" ); # Normalize the version $version = $self->_perl_version($version); # We don't support the reall old versions unless ( $version >= 5.005 ) { die "Module::Install only supports 5.005 or newer (use ExtUtils::MakeMaker)\n"; } $self->{values}->{perl_version} = $version; } #Stolen from M::B my %license_urls = ( perl => 'http://dev.perl.org/licenses/', apache => 'http://apache.org/licenses/LICENSE-2.0', artistic => 'http://opensource.org/licenses/artistic-license.php', artistic_2 => 'http://opensource.org/licenses/artistic-license-2.0.php', lgpl => 'http://opensource.org/licenses/lgpl-license.php', lgpl2 => 'http://opensource.org/licenses/lgpl-2.1.php', lgpl3 => 'http://opensource.org/licenses/lgpl-3.0.html', bsd => 'http://opensource.org/licenses/bsd-license.php', gpl => 'http://opensource.org/licenses/gpl-license.php', gpl2 => 'http://opensource.org/licenses/gpl-2.0.php', gpl3 => 'http://opensource.org/licenses/gpl-3.0.html', mit => 'http://opensource.org/licenses/mit-license.php', mozilla => 'http://opensource.org/licenses/mozilla1.1.php', open_source => undef, unrestricted => undef, restrictive => undef, unknown => undef, ); sub license { my $self = shift; return $self->{values}->{license} unless @_; my $license = shift or die( 'Did not provide a value to license()' ); $self->{values}->{license} = $license; # Automatically fill in license URLs if ( $license_urls{$license} ) { $self->resources( license => $license_urls{$license} ); } return 1; } sub all_from { my ( $self, $file ) = @_; unless ( defined($file) ) { my $name = $self->name or die( "all_from called with no args without setting name() first" ); $file = join('/', 'lib', split(/-/, $name)) . '.pm'; $file =~ s{.*/}{} unless -e $file; unless ( -e $file ) { die("all_from cannot find $file from $name"); } } unless ( -f $file ) { die("The path '$file' does not exist, or is not a file"); } # Some methods pull from POD instead of code. # If there is a matching .pod, use that instead my $pod = $file; $pod =~ s/\.pm$/.pod/i; $pod = $file unless -e $pod; # Pull the different values $self->name_from($file) unless $self->name; $self->version_from($file) unless $self->version; $self->perl_version_from($file) unless $self->perl_version; $self->author_from($pod) unless $self->author; $self->license_from($pod) unless $self->license; $self->abstract_from($pod) unless $self->abstract; return 1; } sub provides { my $self = shift; my $provides = ( $self->{values}->{provides} ||= {} ); %$provides = (%$provides, @_) if @_; return $provides; } sub auto_provides { my $self = shift; return $self unless $self->is_admin; unless (-e 'MANIFEST') { warn "Cannot deduce auto_provides without a MANIFEST, skipping\n"; return $self; } # Avoid spurious warnings as we are not checking manifest here. local $SIG{__WARN__} = sub {1}; require ExtUtils::Manifest; local *ExtUtils::Manifest::manicheck = sub { return }; require Module::Build; my $build = Module::Build->new( dist_name => $self->name, dist_version => $self->version, license => $self->license, ); $self->provides( %{ $build->find_dist_packages || {} } ); } sub feature { my $self = shift; my $name = shift; my $features = ( $self->{values}->{features} ||= [] ); my $mods; if ( @_ == 1 and ref( $_[0] ) ) { # The user used ->feature like ->features by passing in the second # argument as a reference. Accomodate for that. $mods = $_[0]; } else { $mods = \@_; } my $count = 0; push @$features, ( $name => [ map { ref($_) ? ( ref($_) eq 'HASH' ) ? %$_ : @$_ : $_ } @$mods ] ); return @$features; } sub features { my $self = shift; while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) { $self->feature( $name, @$mods ); } return $self->{values}->{features} ? @{ $self->{values}->{features} } : (); } sub no_index { my $self = shift; my $type = shift; push @{ $self->{values}->{no_index}->{$type} }, @_ if $type; return $self->{values}->{no_index}; } sub read { my $self = shift; $self->include_deps( 'YAML::Tiny', 0 ); require YAML::Tiny; my $data = YAML::Tiny::LoadFile('META.yml'); # Call methods explicitly in case user has already set some values. while ( my ( $key, $value ) = each %$data ) { next unless $self->can($key); if ( ref $value eq 'HASH' ) { while ( my ( $module, $version ) = each %$value ) { $self->can($key)->($self, $module => $version ); } } else { $self->can($key)->($self, $value); } } return $self; } sub write { my $self = shift; return $self unless $self->is_admin; $self->admin->write_meta; return $self; } sub version_from { require ExtUtils::MM_Unix; my ( $self, $file ) = @_; $self->version( ExtUtils::MM_Unix->parse_version($file) ); } sub abstract_from { require ExtUtils::MM_Unix; my ( $self, $file ) = @_; $self->abstract( bless( { DISTNAME => $self->name }, 'ExtUtils::MM_Unix' )->parse_abstract($file) ); } # Add both distribution and module name sub name_from { my ($self, $file) = @_; if ( Module::Install::_read($file) =~ m/ ^ \s* package \s* ([\w:]+) \s* ; /ixms ) { my ($name, $module_name) = ($1, $1); $name =~ s{::}{-}g; $self->name($name); unless ( $self->module_name ) { $self->module_name($module_name); } } else { die("Cannot determine name from $file\n"); } } sub perl_version_from { my $self = shift; if ( Module::Install::_read($_[0]) =~ m/ ^ (?:use|require) \s* v? ([\d_\.]+) \s* ; /ixms ) { my $perl_version = $1; $perl_version =~ s{_}{}g; $self->perl_version($perl_version); } else { warn "Cannot determine perl version info from $_[0]\n"; return; } } sub author_from { my $self = shift; my $content = Module::Install::_read($_[0]); if ($content =~ m/ =head \d \s+ (?:authors?)\b \s* ([^\n]*) | =head \d \s+ (?:licen[cs]e|licensing|copyright|legal)\b \s* .*? copyright .*? \d\d\d[\d.]+ \s* (?:\bby\b)? \s* ([^\n]*) /ixms) { my $author = $1 || $2; $author =~ s{E}{<}g; $author =~ s{E}{>}g; $self->author($author); } else { warn "Cannot determine author info from $_[0]\n"; } } sub license_from { my $self = shift; if ( Module::Install::_read($_[0]) =~ m/ ( =head \d \s+ (?:licen[cs]e|licensing|copyright|legal)\b .*? ) (=head\\d.*|=cut.*|) \z /ixms ) { my $license_text = $1; my @phrases = ( 'under the same (?:terms|license) as (?:perl|the perl programming language) itself' => 'perl', 1, 'GNU general public license' => 'gpl', 1, 'GNU public license' => 'gpl', 1, 'GNU lesser general public license' => 'lgpl', 1, 'GNU lesser public license' => 'lgpl', 1, 'GNU library general public license' => 'lgpl', 1, 'GNU library public license' => 'lgpl', 1, 'BSD license' => 'bsd', 1, 'Artistic license' => 'artistic', 1, 'GPL' => 'gpl', 1, 'LGPL' => 'lgpl', 1, 'BSD' => 'bsd', 1, 'Artistic' => 'artistic', 1, 'MIT' => 'mit', 1, 'proprietary' => 'proprietary', 0, ); while ( my ($pattern, $license, $osi) = splice(@phrases, 0, 3) ) { $pattern =~ s{\s+}{\\s+}g; if ( $license_text =~ /\b$pattern\b/i ) { $self->license($license); return 1; } } } warn "Cannot determine license info from $_[0]\n"; return 'unknown'; } sub _extract_bugtracker { my @links = $_[0] =~ m#L<(\Qhttp://rt.cpan.org/\E[^>]+)>#g; my %links; @links{@links}=(); @links=keys %links; return @links; } sub bugtracker_from { my $self = shift; my $content = Module::Install::_read($_[0]); my @links = _extract_bugtracker($content); unless ( @links ) { warn "Cannot determine bugtracker info from $_[0]\n"; return 0; } if ( @links > 1 ) { warn "Found more than on rt.cpan.org link in $_[0]\n"; return 0; } # Set the bugtracker bugtracker( $links[0] ); return 1; } sub requires_from { my $self = shift; my $content = Module::Install::_readperl($_[0]); my @requires = $content =~ m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+([\d\.]+)/mg; while ( @requires ) { my $module = shift @requires; my $version = shift @requires; $self->requires( $module => $version ); } } sub test_requires_from { my $self = shift; my $content = Module::Install::_readperl($_[0]); my @requires = $content =~ m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+([\d\.]+)/mg; while ( @requires ) { my $module = shift @requires; my $version = shift @requires; $self->test_requires( $module => $version ); } } # Convert triple-part versions (eg, 5.6.1 or 5.8.9) to # numbers (eg, 5.006001 or 5.008009). # Also, convert double-part versions (eg, 5.8) sub _perl_version { my $v = $_[-1]; $v =~ s/^([1-9])\.([1-9]\d?\d?)$/sprintf("%d.%03d",$1,$2)/e; $v =~ s/^([1-9])\.([1-9]\d?\d?)\.(0|[1-9]\d?\d?)$/sprintf("%d.%03d%03d",$1,$2,$3 || 0)/e; $v =~ s/(\.\d\d\d)000$/$1/; $v =~ s/_.+$//; if ( ref($v) ) { # Numify $v = $v + 0; } return $v; } ###################################################################### # MYMETA Support sub WriteMyMeta { die "WriteMyMeta has been deprecated"; } sub write_mymeta_yaml { my $self = shift; # We need YAML::Tiny to write the MYMETA.yml file unless ( eval { require YAML::Tiny; 1; } ) { return 1; } # Generate the data my $meta = $self->_write_mymeta_data or return 1; # Save as the MYMETA.yml file print "Writing MYMETA.yml\n"; YAML::Tiny::DumpFile('MYMETA.yml', $meta); } sub write_mymeta_json { my $self = shift; # We need JSON to write the MYMETA.json file unless ( eval { require JSON; 1; } ) { return 1; } # Generate the data my $meta = $self->_write_mymeta_data or return 1; # Save as the MYMETA.yml file print "Writing MYMETA.json\n"; Module::Install::_write( 'MYMETA.json', JSON->new->pretty(1)->canonical->encode($meta), ); } sub _write_mymeta_data { my $self = shift; # If there's no existing META.yml there is nothing we can do return undef unless -f 'META.yml'; # We need Parse::CPAN::Meta to load the file unless ( eval { require Parse::CPAN::Meta; 1; } ) { return undef; } # Merge the perl version into the dependencies my $val = $self->Meta->{values}; my $perl = delete $val->{perl_version}; if ( $perl ) { $val->{requires} ||= []; my $requires = $val->{requires}; # Canonize to three-dot version after Perl 5.6 if ( $perl >= 5.006 ) { $perl =~ s{^(\d+)\.(\d\d\d)(\d*)}{join('.', $1, int($2||0), int($3||0))}e } unshift @$requires, [ perl => $perl ]; } # Load the advisory META.yml file my @yaml = Parse::CPAN::Meta::LoadFile('META.yml'); my $meta = $yaml[0]; # Overwrite the non-configure dependency hashs delete $meta->{requires}; delete $meta->{build_requires}; delete $meta->{recommends}; if ( exists $val->{requires} ) { $meta->{requires} = { map { @$_ } @{ $val->{requires} } }; } if ( exists $val->{build_requires} ) { $meta->{build_requires} = { map { @$_ } @{ $val->{build_requires} } }; } return $meta; } 1; MooseX-Emulate-Class-Accessor-Fast-0.00903/inc/Module/Install/Base.pm0000644000175000017500000000176611254004320023436 0ustar raflrafl#line 1 package Module::Install::Base; use strict 'vars'; use vars qw{$VERSION}; BEGIN { $VERSION = '0.91'; } # Suspend handler for "redefined" warnings BEGIN { my $w = $SIG{__WARN__}; $SIG{__WARN__} = sub { $w }; } #line 42 sub new { my $class = shift; unless ( defined &{"${class}::call"} ) { *{"${class}::call"} = sub { shift->_top->call(@_) }; } unless ( defined &{"${class}::load"} ) { *{"${class}::load"} = sub { shift->_top->load(@_) }; } bless { @_ }, $class; } #line 61 sub AUTOLOAD { local $@; my $func = eval { shift->_top->autoload } or return; goto &$func; } #line 75 sub _top { $_[0]->{_top}; } #line 90 sub admin { $_[0]->_top->{admin} or Module::Install::Base::FakeAdmin->new; } #line 106 sub is_admin { $_[0]->admin->VERSION; } sub DESTROY {} package Module::Install::Base::FakeAdmin; my $fake; sub new { $fake ||= bless(\@_, $_[0]); } sub AUTOLOAD {} sub DESTROY {} # Restore warning handler BEGIN { $SIG{__WARN__} = $SIG{__WARN__}->(); } 1; #line 154 MooseX-Emulate-Class-Accessor-Fast-0.00903/inc/Module/Install/Fetch.pm0000644000175000017500000000462711254004320023614 0ustar raflrafl#line 1 package Module::Install::Fetch; use strict; use Module::Install::Base (); use vars qw{$VERSION @ISA $ISCORE}; BEGIN { $VERSION = '0.91'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } sub get_file { my ($self, %args) = @_; my ($scheme, $host, $path, $file) = $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return; if ( $scheme eq 'http' and ! eval { require LWP::Simple; 1 } ) { $args{url} = $args{ftp_url} or (warn("LWP support unavailable!\n"), return); ($scheme, $host, $path, $file) = $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return; } $|++; print "Fetching '$file' from $host... "; unless (eval { require Socket; Socket::inet_aton($host) }) { warn "'$host' resolve failed!\n"; return; } return unless $scheme eq 'ftp' or $scheme eq 'http'; require Cwd; my $dir = Cwd::getcwd(); chdir $args{local_dir} or return if exists $args{local_dir}; if (eval { require LWP::Simple; 1 }) { LWP::Simple::mirror($args{url}, $file); } elsif (eval { require Net::FTP; 1 }) { eval { # use Net::FTP to get past firewall my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600); $ftp->login("anonymous", 'anonymous@example.com'); $ftp->cwd($path); $ftp->binary; $ftp->get($file) or (warn("$!\n"), return); $ftp->quit; } } elsif (my $ftp = $self->can_run('ftp')) { eval { # no Net::FTP, fallback to ftp.exe require FileHandle; my $fh = FileHandle->new; local $SIG{CHLD} = 'IGNORE'; unless ($fh->open("|$ftp -n")) { warn "Couldn't open ftp: $!\n"; chdir $dir; return; } my @dialog = split(/\n/, <<"END_FTP"); open $host user anonymous anonymous\@example.com cd $path binary get $file $file quit END_FTP foreach (@dialog) { $fh->print("$_\n") } $fh->close; } } else { warn "No working 'ftp' program available!\n"; chdir $dir; return; } unless (-f $file) { warn "Fetching failed: $@\n"; chdir $dir; return; } return if exists $args{size} and -s $file != $args{size}; system($args{run}) if exists $args{run}; unlink($file) if $args{remove}; print(((!exists $args{check_for} or -e $args{check_for}) ? "done!" : "failed! ($!)"), "\n"); chdir $dir; return !$?; } 1; MooseX-Emulate-Class-Accessor-Fast-0.00903/inc/Module/Install/Win32.pm0000644000175000017500000000340311254004320023454 0ustar raflrafl#line 1 package Module::Install::Win32; use strict; use Module::Install::Base (); use vars qw{$VERSION @ISA $ISCORE}; BEGIN { $VERSION = '0.91'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } # determine if the user needs nmake, and download it if needed sub check_nmake { my $self = shift; $self->load('can_run'); $self->load('get_file'); require Config; return unless ( $^O eq 'MSWin32' and $Config::Config{make} and $Config::Config{make} =~ /^nmake\b/i and ! $self->can_run('nmake') ); print "The required 'nmake' executable not found, fetching it...\n"; require File::Basename; my $rv = $self->get_file( url => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe', ftp_url => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe', local_dir => File::Basename::dirname($^X), size => 51928, run => 'Nmake15.exe /o > nul', check_for => 'Nmake.exe', remove => 1, ); die <<'END_MESSAGE' unless $rv; ------------------------------------------------------------------------------- Since you are using Microsoft Windows, you will need the 'nmake' utility before installation. It's available at: http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe or ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe Please download the file manually, save it to a directory in %PATH% (e.g. C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to that directory, and run "Nmake15.exe" from there; that will create the 'nmake.exe' file needed by this module. You may then resume the installation process described in README. ------------------------------------------------------------------------------- END_MESSAGE } 1; MooseX-Emulate-Class-Accessor-Fast-0.00903/inc/Module/Install.pm0000644000175000017500000002411411254004317022562 0ustar raflrafl#line 1 package Module::Install; # For any maintainers: # The load order for Module::Install is a bit magic. # It goes something like this... # # IF ( host has Module::Install installed, creating author mode ) { # 1. Makefile.PL calls "use inc::Module::Install" # 2. $INC{inc/Module/Install.pm} set to installed version of inc::Module::Install # 3. The installed version of inc::Module::Install loads # 4. inc::Module::Install calls "require Module::Install" # 5. The ./inc/ version of Module::Install loads # } ELSE { # 1. Makefile.PL calls "use inc::Module::Install" # 2. $INC{inc/Module/Install.pm} set to ./inc/ version of Module::Install # 3. The ./inc/ version of Module::Install loads # } use 5.005; use strict 'vars'; use vars qw{$VERSION $MAIN}; BEGIN { # All Module::Install core packages now require synchronised versions. # This will be used to ensure we don't accidentally load old or # different versions of modules. # This is not enforced yet, but will be some time in the next few # releases once we can make sure it won't clash with custom # Module::Install extensions. $VERSION = '0.91'; # Storage for the pseudo-singleton $MAIN = undef; *inc::Module::Install::VERSION = *VERSION; @inc::Module::Install::ISA = __PACKAGE__; } # Whether or not inc::Module::Install is actually loaded, the # $INC{inc/Module/Install.pm} is what will still get set as long as # the caller loaded module this in the documented manner. # If not set, the caller may NOT have loaded the bundled version, and thus # they may not have a MI version that works with the Makefile.PL. This would # result in false errors or unexpected behaviour. And we don't want that. my $file = join( '/', 'inc', split /::/, __PACKAGE__ ) . '.pm'; unless ( $INC{$file} ) { die <<"END_DIE" } Please invoke ${\__PACKAGE__} with: use inc::${\__PACKAGE__}; not: use ${\__PACKAGE__}; END_DIE # If the script that is loading Module::Install is from the future, # then make will detect this and cause it to re-run over and over # again. This is bad. Rather than taking action to touch it (which # is unreliable on some platforms and requires write permissions) # for now we should catch this and refuse to run. if ( -f $0 ) { my $s = (stat($0))[9]; # If the modification time is only slightly in the future, # sleep briefly to remove the problem. my $a = $s - time; if ( $a > 0 and $a < 5 ) { sleep 5 } # Too far in the future, throw an error. my $t = time; if ( $s > $t ) { die <<"END_DIE" } Your installer $0 has a modification time in the future ($s > $t). This is known to create infinite loops in make. Please correct this, then run $0 again. END_DIE } # Build.PL was formerly supported, but no longer is due to excessive # difficulty in implementing every single feature twice. if ( $0 =~ /Build.PL$/i ) { die <<"END_DIE" } Module::Install no longer supports Build.PL. It was impossible to maintain duel backends, and has been deprecated. Please remove all Build.PL files and only use the Makefile.PL installer. END_DIE # To save some more typing in Module::Install installers, every... # use inc::Module::Install # ...also acts as an implicit use strict. $^H |= strict::bits(qw(refs subs vars)); use Cwd (); use File::Find (); use File::Path (); use FindBin; sub autoload { my $self = shift; my $who = $self->_caller; my $cwd = Cwd::cwd(); my $sym = "${who}::AUTOLOAD"; $sym->{$cwd} = sub { my $pwd = Cwd::cwd(); if ( my $code = $sym->{$pwd} ) { # Delegate back to parent dirs goto &$code unless $cwd eq $pwd; } $$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym"; my $method = $1; if ( uc($method) eq $method ) { # Do nothing return; } elsif ( $method =~ /^_/ and $self->can($method) ) { # Dispatch to the root M:I class return $self->$method(@_); } # Dispatch to the appropriate plugin unshift @_, ( $self, $1 ); goto &{$self->can('call')}; }; } sub import { my $class = shift; my $self = $class->new(@_); my $who = $self->_caller; unless ( -f $self->{file} ) { require "$self->{path}/$self->{dispatch}.pm"; File::Path::mkpath("$self->{prefix}/$self->{author}"); $self->{admin} = "$self->{name}::$self->{dispatch}"->new( _top => $self ); $self->{admin}->init; @_ = ($class, _self => $self); goto &{"$self->{name}::import"}; } *{"${who}::AUTOLOAD"} = $self->autoload; $self->preload; # Unregister loader and worker packages so subdirs can use them again delete $INC{"$self->{file}"}; delete $INC{"$self->{path}.pm"}; # Save to the singleton $MAIN = $self; return 1; } sub preload { my $self = shift; unless ( $self->{extensions} ) { $self->load_extensions( "$self->{prefix}/$self->{path}", $self ); } my @exts = @{$self->{extensions}}; unless ( @exts ) { @exts = $self->{admin}->load_all_extensions; } my %seen; foreach my $obj ( @exts ) { while (my ($method, $glob) = each %{ref($obj) . '::'}) { next unless $obj->can($method); next if $method =~ /^_/; next if $method eq uc($method); $seen{$method}++; } } my $who = $self->_caller; foreach my $name ( sort keys %seen ) { *{"${who}::$name"} = sub { ${"${who}::AUTOLOAD"} = "${who}::$name"; goto &{"${who}::AUTOLOAD"}; }; } } sub new { my ($class, %args) = @_; # ignore the prefix on extension modules built from top level. my $base_path = Cwd::abs_path($FindBin::Bin); unless ( Cwd::abs_path(Cwd::cwd()) eq $base_path ) { delete $args{prefix}; } return $args{_self} if $args{_self}; $args{dispatch} ||= 'Admin'; $args{prefix} ||= 'inc'; $args{author} ||= ($^O eq 'VMS' ? '_author' : '.author'); $args{bundle} ||= 'inc/BUNDLES'; $args{base} ||= $base_path; $class =~ s/^\Q$args{prefix}\E:://; $args{name} ||= $class; $args{version} ||= $class->VERSION; unless ( $args{path} ) { $args{path} = $args{name}; $args{path} =~ s!::!/!g; } $args{file} ||= "$args{base}/$args{prefix}/$args{path}.pm"; $args{wrote} = 0; bless( \%args, $class ); } sub call { my ($self, $method) = @_; my $obj = $self->load($method) or return; splice(@_, 0, 2, $obj); goto &{$obj->can($method)}; } sub load { my ($self, $method) = @_; $self->load_extensions( "$self->{prefix}/$self->{path}", $self ) unless $self->{extensions}; foreach my $obj (@{$self->{extensions}}) { return $obj if $obj->can($method); } my $admin = $self->{admin} or die <<"END_DIE"; The '$method' method does not exist in the '$self->{prefix}' path! Please remove the '$self->{prefix}' directory and run $0 again to load it. END_DIE my $obj = $admin->load($method, 1); push @{$self->{extensions}}, $obj; $obj; } sub load_extensions { my ($self, $path, $top) = @_; unless ( grep { ! ref $_ and lc $_ eq lc $self->{prefix} } @INC ) { unshift @INC, $self->{prefix}; } foreach my $rv ( $self->find_extensions($path) ) { my ($file, $pkg) = @{$rv}; next if $self->{pathnames}{$pkg}; local $@; my $new = eval { require $file; $pkg->can('new') }; unless ( $new ) { warn $@ if $@; next; } $self->{pathnames}{$pkg} = delete $INC{$file}; push @{$self->{extensions}}, &{$new}($pkg, _top => $top ); } $self->{extensions} ||= []; } sub find_extensions { my ($self, $path) = @_; my @found; File::Find::find( sub { my $file = $File::Find::name; return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is; my $subpath = $1; return if lc($subpath) eq lc($self->{dispatch}); $file = "$self->{path}/$subpath.pm"; my $pkg = "$self->{name}::$subpath"; $pkg =~ s!/!::!g; # If we have a mixed-case package name, assume case has been preserved # correctly. Otherwise, root through the file to locate the case-preserved # version of the package name. if ( $subpath eq lc($subpath) || $subpath eq uc($subpath) ) { my $content = Module::Install::_read($subpath . '.pm'); my $in_pod = 0; foreach ( split //, $content ) { $in_pod = 1 if /^=\w/; $in_pod = 0 if /^=cut/; next if ($in_pod || /^=cut/); # skip pod text next if /^\s*#/; # and comments if ( m/^\s*package\s+($pkg)\s*;/i ) { $pkg = $1; last; } } } push @found, [ $file, $pkg ]; }, $path ) if -d $path; @found; } ##################################################################### # Common Utility Functions sub _caller { my $depth = 0; my $call = caller($depth); while ( $call eq __PACKAGE__ ) { $depth++; $call = caller($depth); } return $call; } sub _read { local *FH; if ( $] >= 5.006 ) { open( FH, '<', $_[0] ) or die "open($_[0]): $!"; } else { open( FH, "< $_[0]" ) or die "open($_[0]): $!"; } my $string = do { local $/; }; close FH or die "close($_[0]): $!"; return $string; } sub _readperl { my $string = Module::Install::_read($_[0]); $string =~ s/(?:\015{1,2}\012|\015|\012)/\n/sg; $string =~ s/(\n)\n*__(?:DATA|END)__\b.*\z/$1/s; $string =~ s/\n\n=\w+.+?\n\n=cut\b.+?\n+/\n\n/sg; return $string; } sub _readpod { my $string = Module::Install::_read($_[0]); $string =~ s/(?:\015{1,2}\012|\015|\012)/\n/sg; return $string if $_[0] =~ /\.pod\z/; $string =~ s/(^|\n=cut\b.+?\n+)[^=\s].+?\n(\n=\w+|\z)/$1$2/sg; $string =~ s/\n*=pod\b[^\n]*\n+/\n\n/sg; $string =~ s/\n*=cut\b[^\n]*\n+/\n\n/sg; $string =~ s/^\n+//s; return $string; } sub _write { local *FH; if ( $] >= 5.006 ) { open( FH, '>', $_[0] ) or die "open($_[0]): $!"; } else { open( FH, "> $_[0]" ) or die "open($_[0]): $!"; } foreach ( 1 .. $#_ ) { print FH $_[$_] or die "print($_[0]): $!"; } close FH or die "close($_[0]): $!"; } # _version is for processing module versions (eg, 1.03_05) not # Perl versions (eg, 5.8.1). sub _version ($) { my $s = shift || 0; my $d =()= $s =~ /(\.)/g; if ( $d >= 2 ) { # Normalise multipart versions $s =~ s/(\.)(\d{1,3})/sprintf("$1%03d",$2)/eg; } $s =~ s/^(\d+)\.?//; my $l = $1 || 0; my @v = map { $_ . '0' x (3 - length $_) } $s =~ /(\d{1,3})\D?/g; $l = $l . '.' . join '', @v if @v; return $l + 0; } sub _cmp ($$) { _version($_[0]) <=> _version($_[1]); } # Cloned from Params::Util::_CLASS sub _CLASS ($) { ( defined $_[0] and ! ref $_[0] and $_[0] =~ m/^[^\W\d]\w*(?:::\w+)*\z/s ) ? $_[0] : undef; } 1; # Copyright 2008 - 2009 Adam Kennedy. MooseX-Emulate-Class-Accessor-Fast-0.00903/Changes0000644000175000017500000000542311254004310020106 0ustar raflrafl0.00903 Sept 15, 2009 - Silence a test warning from Moose 0.90 (Dave Rolsky). 0.00902 July 10, 2009 - Bump required Moose version to avoid issues with is => 'bare' when an older version of Moose is already installed. 0.00901 July 06, 2009 - Fix to not warn with newer versions of Moose by passing is => 'bare' to process_accessors method. 0.00900 May 29, 2009 - Fix so that classes which implement BUILD themselves still get all attributes passed to their constuctor placed into the instance hash (t0m) 0.00802 Apr 23, 2009 - Declare test dependency on Test::Exception. Closes RT#43194. (rafl) - Turn build_requires on Test::More into test_requires. (rafl) - Fix doc typos in SYNOPSIS. Closes RT#40380. (rafl) 0.00801 Apr 09, 2009 - Make the accessor meta method class compatible with recent Moose. - Stop using deprecated Moose api to avoid warnings. - Bump Moose dependency to 0.74. 0.00800 Feb 03, 2009 - Fix assigning a list to an accessor stores a list ref - tests - TODO test for Class::Accessor::Chained::Fast compatibility 0.00701 Jan 02, 2009 - Better errors when trying to modify an immutable class - Fix typo in Makefile.PL description - Missing dep in Makefile.PL (rafl) 0.00700 Dec 29, 2008 - Creating a new accessor with the same name as an old one would result in a new attribute with no reader/writer/accessor. Reported by t0m - tests (t0m) 0.00600 Dec 17, 2008 - Add test for a 'meta' accessor, which we need to treat as a special case (t0m) - Add test for not replacing pre-existing accessors generally, which is behavior we don't want to lose (t0m) - Don't use ->meta - Don't use ->can - Attempt to support attrs named meta with no success. test marked as todo. 0.00500 Dec 9, 2008 - make_accessor, make_ro_accessor, make_rw_accessor - tests 0.00400 Oct 28, 2008 - Fix bug where a bad assumption was causing us to infinitely loop on badly-written code like Data::Page. (Reported by marcus) - Tests for this - Up Moose dep to 0.31 0.00300 Jul 30, 2008 - Replace around 'new' with a BUILD method. Faster and avoids Moose bug with around/immutable and sub-classes. (t0m) 0.00200 Mar 28, 2008 - Extend BUILDALL to store constructor keys in the obj. hashref - Minor fix to make sure Adopt doesn't trip PAUSE perms - Bye bye auto_install. 0.00100 Mar 15, 2008 - Initial Release! MooseX-Emulate-Class-Accessor-Fast-0.00903/t/0000711000175000017500000000000011254004364017053 5ustar raflraflMooseX-Emulate-Class-Accessor-Fast-0.00903/t/attr_named_meta.t0000644000175000017500000000117011167156246022405 0ustar raflrafl#!/usr/bin/perl -w use strict; use warnings; use Class::MOP (); use Test::More skip_all => 'TODO'; # use MooseX::Adopt::Class::Accessor::Fast; { package TestPackage; use base 'Class::Accessor::Fast'; __PACKAGE__->mk_accessors(qw/ meta /); } my $i = TestPackage->new( meta => 66 ); is $i->meta, 66, 'meta accessor read value from constructor'; $i->meta(9); is $i->meta, 9, 'meta accessor read set value'; my $meta = Class::MOP::get_metaclass_for('TestPackage'); $meta->make_immutable; is $i->meta, 9, 'meta accessor read value from constructor'; $i->meta(66); is $i->meta, 66, 'meta accessor read set value'; __END__; MooseX-Emulate-Class-Accessor-Fast-0.00903/t/adopt.t0000644000175000017500000000174111167156246020374 0ustar raflrafl#!perl use strict; use lib 't/lib'; use Test::More tests => 13; #1,2 require_ok("MooseX::Adopt::Class::Accessor::Fast"); use_ok('TestAdoptCAF'); #3-6 ok(TestAdoptCAF->can('meta'), 'Adopt seems to work'); ok(TestAdoptCAF->meta->find_attribute_by_name($_), "attribute $_ created") for qw(foo bar baz); { my $ok = eval { local $SIG{__WARN__} = sub { die "Warning generated when new was called with no arguments: " . join("; ", @_); }; TestAdoptCAF->new(()); }; ok( ref($ok), ref($ok) ? "no warnings when instantiating object" : $@); } #7-9 my $t = TestAdoptCAF->new(foo => 100, bar => 200, groditi => 300); is($t->{foo}, 100, '$self->{foo} set'); is($t->{bar}, 200, '$self->{bar} set'); is($t->{groditi}, 300, '$self->{groditi} set'); #10-12 my $u = TestAdoptCAF->new({foo => 100, bar => 200, groditi => 300}); is($u->{foo}, 100, '$self->{foo} set'); is($u->{bar}, 200, '$self->{bar} set'); is($u->{groditi}, 300, '$self->{groditi} set'); MooseX-Emulate-Class-Accessor-Fast-0.00903/t/recreated_accessors.t0000644000175000017500000000111611167156246023264 0ustar raflrafl#!/usr/bin/perl -w use strict; use warnings; use Test::More tests => 5; use Test::Exception; # 1 use_ok('MooseX::Emulate::Class::Accessor::Fast'); { package My::Test::Package; use Moose; with 'MooseX::Emulate::Class::Accessor::Fast'; for (0..1) { __PACKAGE__->mk_accessors(qw( foo )); __PACKAGE__->mk_ro_accessors(qw( bar )); __PACKAGE__->mk_wo_accessors(qw( baz )); } } my $i = My::Test::Package->new(bar => 'bar'); # 2 lives_ok { $i->foo('foo'); $i->baz('baz'); # 3-5 is($i->foo, 'foo'); is($i->bar, 'bar'); is($i->{baz}, 'baz'); } 'No exception'; MooseX-Emulate-Class-Accessor-Fast-0.00903/t/getset.t0000644000175000017500000000165111167156246020560 0ustar raflrafl#!perl use strict; use Test::More tests => 9; require_ok("MooseX::Adopt::Class::Accessor::Fast"); { @Foo::ISA = qw(Class::Accessor::Fast); Foo->mk_accessors(qw( foo )); my $test = Foo->new({ foo => 49 }); is( $test->get('foo'), 49, "get initial foo"); $test->set('foo', 42); is($test->get('foo'), 42, "get new foo"); } { @Bar::ISA = qw(Class::Accessor::Fast); my $get_ref = Bar->make_ro_accessor('read'); my $set_ref = Bar->make_wo_accessor('write'); my $getset_ref = Bar->make_accessor('read_write'); ok(Bar->meta->has_attribute("read"),"has read"); ok(Bar->meta->has_attribute("write"),"has write"); ok(Bar->meta->has_attribute("read_write"),"has read_write"); my $obj = Bar->new({read => 1, write => 2, read_write => 3}); is($get_ref->($obj), 1, "read get works"); is($getset_ref->($obj), 3, "read_write get works"); $getset_ref->($obj,2); is($getset_ref->($obj), 2, "read_write set works"); } MooseX-Emulate-Class-Accessor-Fast-0.00903/t/construction.t0000644000175000017500000000275311253776536022031 0ustar raflrafl#!perl use strict; use Test::More tests => 9; #1 require_ok("MooseX::Emulate::Class::Accessor::Fast"); { package MyClass; use Moose; with 'MooseX::Emulate::Class::Accessor::Fast'; } { package MyClass::MooseChild; use Moose; extends 'MyClass'; } { package MyClass::ImmutableMooseChild; use Moose; extends 'MyClass'; __PACKAGE__->meta->make_immutable(allow_mutable_ancestors => 1); } { package MyClass::TraditionalChild; use base qw(MyClass); } { package MyImmutableClass; use Moose; with 'MooseX::Emulate::Class::Accessor::Fast'; __PACKAGE__->meta->make_immutable; } { package MyImmutableClass::MooseChild; use Moose; extends 'MyImmutableClass'; } { package MyImmutableClass::ImmutableMooseChild; use Moose; extends 'MyImmutableClass'; __PACKAGE__->meta->make_immutable; } { package MyImmutableClass::TraditionalChild; use base qw(MyImmutableClass); } # 2-9 foreach my $class (qw/ MyClass MyImmutableClass MyClass::MooseChild MyClass::ImmutableMooseChild MyClass::TraditionalChild MyImmutableClass::MooseChild MyImmutableClass::ImmutableMooseChild MyImmutableClass::TraditionalChild /) { my $instance = $class->new(foo => 'bar'); is($instance->{foo}, 'bar', $class . " has CAF construction behavior"); } MooseX-Emulate-Class-Accessor-Fast-0.00903/t/no_replace_existing_symbols.t0000644000175000017500000000133711167156246025057 0ustar raflrafl#!/usr/binperl -w use strict; use warnings; use Test::More tests => 6; { package SomeClass; use Moose; with 'MooseX::Emulate::Class::Accessor::Fast'; sub anaccessor { 'wibble' } } { package SubClass; use base qw/SomeClass/; sub anotherone { 'flibble' } __PACKAGE__->mk_accessors(qw/ anaccessor anotherone /); } # 1, 2 my $someclass = SomeClass->new; is($someclass->anaccessor, 'wibble'); $someclass->anaccessor('fnord'); is($someclass->anaccessor, 'wibble'); # 3-6 my $subclass = SubClass->new; ok( not defined $subclass->anaccessor ); $subclass->anaccessor('fnord'); is($subclass->anaccessor, 'fnord'); is($subclass->anotherone, 'flibble'); $subclass->anotherone('fnord'); is($subclass->anotherone, 'flibble'); MooseX-Emulate-Class-Accessor-Fast-0.00903/t/accessors.t0000644000175000017500000000343711167210142021240 0ustar raflrafl#!perl use strict; use Test::More tests => 33; use Test::Exception; use Class::MOP; #1 require_ok("MooseX::Adopt::Class::Accessor::Fast"); my $class = "Testing::Class::Accessor::Fast"; { my $infinite_loop_indicator = 0; my $meta = Class::MOP::Class->create( $class, superclasses => ['Class::Accessor::Fast'], methods => { car => sub { shift->_car_accessor(@_); }, mar => sub { return "Overloaded"; }, test => sub { die('Infinite loop detected') if $infinite_loop_indicator++; $_[0]->_test_accessor((@_ > 1 ? @_ : ())); } } ); $class->mk_accessors(qw( foo bar yar car mar test)); $class->mk_ro_accessors(qw(static unchanged)); $class->mk_wo_accessors(qw(sekret double_sekret)); $class->follow_best_practice; $class->mk_accessors(qw( best)); } my %attrs = map{$_->name => $_} $class->meta->get_all_attributes; #2 is(keys %attrs, 11, 'Correct number of attributes'); #3-12 ok(exists $attrs{$_}, "Attribute ${_} created") for qw( foo bar yar car mar static unchanged sekret double_sekret best ); #13-21 ok($class->can("_${_}_accessor"), "Alias method (_${_}_accessor) for ${_} created") for qw( foo bar yar car mar static unchanged sekret double_sekret ); #22-24 is( $attrs{$_}->accessor, $_, "Accessor ${_} created" ) for qw( foo bar yar); #25,26 ok( !$attrs{$_}->has_accessor, "Accessor ${_} not created" ) for qw( car mar); #27,28 is( $attrs{$_}->reader, $_, "Reader ${_} created") for qw( static unchanged ); #29,30 is( $attrs{$_}->writer, $_, "Writer ${_} created") for qw(sekret double_sekret); #31,32 is( $attrs{'best'}->reader, 'get_best', "Reader get_best created"); is( $attrs{'best'}->writer, 'set_best', "Writer set_best created"); #33 lives_ok{ $class->new->test(1) } 'no auto-reference to accessors from aliases'; MooseX-Emulate-Class-Accessor-Fast-0.00903/t/BUILD_in_local_class.t0000644000175000017500000000064611207577234023153 0ustar raflrafl{ package My::Class; use Moose; use namespace::clean -except => 'meta'; with 'MooseX::Emulate::Class::Accessor::Fast'; sub BUILD { my ($self, $args) = @_; return $self; } __PACKAGE__->meta->make_immutable; } use Test::More tests => 1; my $i = My::Class->new(totally_random_not_an_attribute => 1); is $i->{totally_random_not_an_attribute}, 1, 'Unknown attrs get into hash'; MooseX-Emulate-Class-Accessor-Fast-0.00903/t/lib/0000711000175000017500000000000011254004364017621 5ustar raflraflMooseX-Emulate-Class-Accessor-Fast-0.00903/t/lib/TestAdoptCAF.pm0000644000175000017500000000025211167156246022421 0ustar raflraflpackage TestAdoptCAF; use base 'Class::Accessor::Fast'; __PACKAGE__->mk_accessors('foo'); __PACKAGE__->mk_ro_accessors('bar'); __PACKAGE__->mk_wo_accessors('baz'); 1; MooseX-Emulate-Class-Accessor-Fast-0.00903/t/list_assign.t0000644000175000017500000000050511167156246021601 0ustar raflrafluse strict; use warnings; use Test::More tests => 1; use MooseX::Adopt::Class::Accessor::Fast; { package Some::Class; use strict; use warnings; use base qw/Class::Accessor::Fast/; __PACKAGE__->mk_accessors(qw/ foo /); } my $i = bless {}, 'Some::Class'; $i->foo(qw/bar baz/); is_deeply($i->foo, [qw/ bar baz /]); MooseX-Emulate-Class-Accessor-Fast-0.00903/t/class_accessor_chained_fast.t0000644000175000017500000000131311167156246024737 0ustar raflrafluse strict; use warnings; use Test::More tests => 1; use MooseX::Adopt::Class::Accessor::Fast; { package MyClass::Accessor::Chained::Fast; use strict; use base 'Class::Accessor::Fast'; sub make_accessor { my($class, $field) = @_; return sub { my $self = shift; if(@_) { $self->{$field} = (@_ == 1 ? $_[0] : [@_]); return $self; } return $self->{$field}; }; } } { package TestPackage; use base qw/MyClass::Accessor::Chained::Fast/; __PACKAGE__->mk_accessors('foo'); } my $i = bless {}, 'TestPackage'; my $other_i = $i->foo('bar'); TODO: { local $TODO = 'ENOWORKEY'; is($other_i, $i, 'Accessor returns instance as opposed to value.'); } MooseX-Emulate-Class-Accessor-Fast-0.00903/Makefile.PL0000644000175000017500000000057111225623375020604 0ustar raflrafl#! /usr/bin/perl -w # Load the Module::Install bundled in ./inc/ use inc::Module::Install; # Define metadata name 'MooseX-Emulate-Class-Accessor-Fast'; all_from 'lib/MooseX/Emulate/Class/Accessor/Fast.pm'; # Specific dependencies requires 'Moose' => '0.84'; requires 'namespace::clean' => 0; test_requires 'Test::More' => 0; test_requires 'Test::Exception' => 0; WriteAll; MooseX-Emulate-Class-Accessor-Fast-0.00903/META.yml0000644000175000017500000000117611254004320020066 0ustar raflrafl--- abstract: 'Emulate Class::Accessor::Fast behavior using Moose attributes' author: - 'Guillermo Roditi (groditi) ' build_requires: ExtUtils::MakeMaker: 6.42 Test::Exception: 0 Test::More: 0 configure_requires: ExtUtils::MakeMaker: 6.42 distribution_type: module generated_by: 'Module::Install version 0.91' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: 1.4 name: MooseX-Emulate-Class-Accessor-Fast no_index: directory: - inc - t requires: Moose: 0.84 namespace::clean: 0 resources: license: http://dev.perl.org/licenses/ version: 0.00903 MooseX-Emulate-Class-Accessor-Fast-0.00903/MANIFEST0000644000175000017500000000131111254004331017737 0ustar raflraflChanges inc/Module/Install.pm inc/Module/Install/Base.pm inc/Module/Install/Can.pm inc/Module/Install/Fetch.pm inc/Module/Install/Makefile.pm inc/Module/Install/Metadata.pm inc/Module/Install/Win32.pm inc/Module/Install/WriteAll.pm lib/MooseX/Adopt/Class/Accessor/Fast.pm lib/MooseX/Emulate/Class/Accessor/Fast.pm lib/MooseX/Emulate/Class/Accessor/Fast/Meta/Accessor.pm lib/MooseX/Emulate/Class/Accessor/Fast/Meta/Role/Attribute.pm Makefile.PL MANIFEST This list of files META.yml README t/accessors.t t/adopt.t t/attr_named_meta.t t/BUILD_in_local_class.t t/class_accessor_chained_fast.t t/construction.t t/getset.t t/lib/TestAdoptCAF.pm t/list_assign.t t/no_replace_existing_symbols.t t/recreated_accessors.t MooseX-Emulate-Class-Accessor-Fast-0.00903/lib/0000711000175000017500000000000011254004364017356 5ustar raflraflMooseX-Emulate-Class-Accessor-Fast-0.00903/lib/MooseX/0000711000175000017500000000000011254004364020570 5ustar raflraflMooseX-Emulate-Class-Accessor-Fast-0.00903/lib/MooseX/Emulate/0000711000175000017500000000000011254004364022164 5ustar raflraflMooseX-Emulate-Class-Accessor-Fast-0.00903/lib/MooseX/Emulate/Class/0000711000175000017500000000000011254004364023231 5ustar raflraflMooseX-Emulate-Class-Accessor-Fast-0.00903/lib/MooseX/Emulate/Class/Accessor/0000711000175000017500000000000011254004364024773 5ustar raflraflMooseX-Emulate-Class-Accessor-Fast-0.00903/lib/MooseX/Emulate/Class/Accessor/Fast.pm0000644000175000017500000002351611254003756026251 0ustar raflraflpackage MooseX::Emulate::Class::Accessor::Fast; use Moose::Role; use Class::MOP (); use Scalar::Util (); use MooseX::Emulate::Class::Accessor::Fast::Meta::Accessor (); our $VERSION = '0.00903'; =head1 NAME MooseX::Emulate::Class::Accessor::Fast - Emulate Class::Accessor::Fast behavior using Moose attributes =head1 SYNOPSYS package MyClass; use Moose; with 'MooseX::Emulate::Class::Accessor::Fast'; #fields with readers and writers __PACKAGE__->mk_accessors(qw/field1 field2/); #fields with readers only __PACKAGE__->mk_ro_accessors(qw/field3 field4/); #fields with writers only __PACKAGE__->mk_wo_accessors(qw/field5 field6/); =head1 DESCRIPTION This module attempts to emulate the behavior of L as accurately as possible using the Moose attribute system. The public API of C is wholly supported, but the private methods are not. If you are only using the public methods (as you should) migration should be a matter of switching your C line to a C line. While I have attempted to emulate the behavior of Class::Accessor::Fast as closely as possible bugs may still be lurking in edge-cases. =head1 BEHAVIOR Simple documentation is provided here for your convenience, but for more thorough documentation please see L and L. =head2 A note about introspection Please note that, at this time, the C flag attribute is not being set. To determine the C and C methods using introspection in later versions of L ( > 0.38) please use the C and C methods in L. Example # with Class::MOP <= 0.38 my $attr = $self->meta->find_attribute_by_name($field_name); my $reader_method = $attr->reader || $attr->accessor; my $writer_method = $attr->writer || $attr->accessor; # with Class::MOP > 0.38 my $attr = $self->meta->find_attribute_by_name($field_name); my $reader_method = $attr->get_read_method; my $writer_method = $attr->get_write_method; =head1 METHODS =head2 BUILD $self %args Change the default Moose class building to emulate the behavior of C::A::F and store arguments in the instance hashref. =cut my $locate_metaclass = sub { my $class = Scalar::Util::blessed($_[0]) || $_[0]; return Class::MOP::get_metaclass_by_name($class) || Moose::Meta::Class->initialize($class); }; sub BUILD { } around 'BUILD' => sub { my $orig = shift; my $self = shift; my %args = %{ $_[0] }; $self->$orig(\%args); my @extra = grep { !exists($self->{$_}) } keys %args; @{$self}{@extra} = @args{@extra}; return $self; }; =head2 mk_accessors @field_names Create read-write accessors. An attribute named C<$field_name> will be created. The name of the c and C methods will be determined by the return value of C and C, which by default return the name passed unchanged. If the accessor and mutator names are equal the C attribute will be passes to Moose, otherwise the C and C attributes will be passed. Please see L for more information. =cut sub mk_accessors { my $self = shift; my $meta = $locate_metaclass->($self); my $class = $meta->name; confess("You are trying to modify ${class}, which has been made immutable, this is ". "not supported. Try subclassing ${class}, rather than monkeypatching it") if $meta->is_immutable; for my $attr_name (@_){ $meta->remove_attribute($attr_name) if $meta->find_attribute_by_name($attr_name); my $reader = $self->accessor_name_for($attr_name); my $writer = $self->mutator_name_for( $attr_name); #dont overwrite existing methods if($reader eq $writer){ my %opts = ( $meta->has_method($reader) ? ( is => 'bare' ) : (accessor => $reader) ); my $attr = $meta->find_attribute_by_name($attr_name) || $meta->add_attribute($attr_name, %opts, traits => ['MooseX::Emulate::Class::Accessor::Fast::Meta::Role::Attribute'] ); if($attr_name eq $reader){ my $alias = "_${attr_name}_accessor"; next if $meta->has_method($alias); $meta->add_method($alias => $attr->get_read_method_ref); } } else { my @opts = ( $meta->has_method($writer) ? () : (writer => $writer) ); push(@opts, (reader => $reader)) unless $meta->has_method($reader); my $attr = $meta->find_attribute_by_name($attr_name) || $meta->add_attribute($attr_name, @opts, traits => ['MooseX::Emulate::Class::Accessor::Fast::Meta::Role::Attribute'] ); } } } =head2 mk_ro_accessors @field_names Create read-only accessors. =cut sub mk_ro_accessors { my $self = shift; my $meta = $locate_metaclass->($self); my $class = $meta->name; confess("You are trying to modify ${class}, which has been made immutable, this is ". "not supported. Try subclassing ${class}, rather than monkeypatching it") if $meta->is_immutable; for my $attr_name (@_){ $meta->remove_attribute($attr_name) if $meta->find_attribute_by_name($attr_name); my $reader = $self->accessor_name_for($attr_name); my @opts = ($meta->has_method($reader) ? (is => 'bare') : (reader => $reader) ); my $attr = $meta->add_attribute($attr_name, @opts, traits => ['MooseX::Emulate::Class::Accessor::Fast::Meta::Role::Attribute'] ) if scalar(@opts); if($reader eq $attr_name && $reader eq $self->mutator_name_for($attr_name)){ $meta->add_method("_${attr_name}_accessor" => $attr->get_read_method_ref) unless $meta->has_method("_${attr_name}_accessor"); } } } =head2 mk_ro_accessors @field_names Create write-only accessors. =cut #this is retarded.. but we need it for compatibility or whatever. sub mk_wo_accessors { my $self = shift; my $meta = $locate_metaclass->($self); my $class = $meta->name; confess("You are trying to modify ${class}, which has been made immutable, this is ". "not supported. Try subclassing ${class}, rather than monkeypatching it") if $meta->is_immutable; for my $attr_name (@_){ $meta->remove_attribute($attr_name) if $meta->find_attribute_by_name($attr_name); my $writer = $self->mutator_name_for($attr_name); my @opts = ($meta->has_method($writer) ? () : (writer => $writer) ); my $attr = $meta->add_attribute($attr_name, @opts, traits => ['MooseX::Emulate::Class::Accessor::Fast::Meta::Role::Attribute'] ) if scalar(@opts); if($writer eq $attr_name && $writer eq $self->accessor_name_for($attr_name)){ $meta->add_method("_${attr_name}_accessor" => $attr->get_write_method_ref) unless $meta->has_method("_${attr_name}_accessor"); } } } =head2 follow_best_practices Preface readers with 'get_' and writers with 'set_'. See original L documentation for more information. =cut sub follow_best_practice { my $self = shift; my $meta = $locate_metaclass->($self); $meta->remove_method('mutator_name_for'); $meta->remove_method('accessor_name_for'); $meta->add_method('mutator_name_for', sub{ return "set_".$_[1] }); $meta->add_method('accessor_name_for', sub{ return "get_".$_[1] }); } =head2 mutator_name_for =head2 accessor_name_for See original L documentation for more information. =cut sub mutator_name_for { return $_[1] } sub accessor_name_for { return $_[1] } =head2 set See original L documentation for more information. =cut sub set { my $self = shift; my $k = shift; confess "Wrong number of arguments received" unless scalar @_; my $meta = $locate_metaclass->($self); confess "No such attribute '$k'" unless ( my $attr = $meta->find_attribute_by_name($k) ); my $writer = $attr->get_write_method; $self->$writer(@_ > 1 ? [@_] : @_); } =head2 get See original L documentation for more information. =cut sub get { my $self = shift; confess "Wrong number of arguments received" unless scalar @_; my $meta = $locate_metaclass->($self); my @values; for( @_ ){ confess "No such attribute '$_'" unless ( my $attr = $meta->find_attribute_by_name($_) ); my $reader = $attr->get_read_method; @_ > 1 ? push(@values, $self->$reader) : return $self->$reader; } return @values; } sub make_accessor { my($class, $field) = @_; my $meta = $locate_metaclass->($class); my $attr = $meta->find_attribute_by_name($field) || $meta->add_attribute($field, traits => ['MooseX::Emulate::Class::Accessor::Fast::Meta::Role::Attribute'], is => 'bare', ); my $reader = $attr->get_read_method_ref; my $writer = $attr->get_write_method_ref; return sub { my $self = shift; return $reader->($self) unless @_; return $writer->($self,(@_ > 1 ? [@_] : @_)); } } sub make_ro_accessor { my($class, $field) = @_; my $meta = $locate_metaclass->($class); my $attr = $meta->find_attribute_by_name($field) || $meta->add_attribute($field, traits => ['MooseX::Emulate::Class::Accessor::Fast::Meta::Role::Attribute'], is => 'bare', ); return $attr->get_read_method_ref; } sub make_wo_accessor { my($class, $field) = @_; my $meta = $locate_metaclass->($class); my $attr = $meta->find_attribute_by_name($field) || $meta->add_attribute($field, traits => ['MooseX::Emulate::Class::Accessor::Fast::Meta::Role::Attribute'], is => 'bare', ); return $attr->get_write_method_ref; } 1; =head2 meta See L. =cut =head1 SEE ALSO L, L, L, L, L, L =head1 AUTHORS Guillermo Roditi (groditi) Egroditi@cpan.orgE With contributions from: =over 4 =item Tomas Doran (t0m) Ebobtfish@bobtfish.netE =item Florian Ragwitz (rafl) Erafl@debian.orgE =back =head1 LICENSE You may distribute this code under the same terms as Perl itself. =cut MooseX-Emulate-Class-Accessor-Fast-0.00903/lib/MooseX/Emulate/Class/Accessor/Fast/0000711000175000017500000000000011254004364025670 5ustar raflraflMooseX-Emulate-Class-Accessor-Fast-0.00903/lib/MooseX/Emulate/Class/Accessor/Fast/Meta/0000711000175000017500000000000011254004364026556 5ustar raflraflMooseX-Emulate-Class-Accessor-Fast-0.00903/lib/MooseX/Emulate/Class/Accessor/Fast/Meta/Accessor.pm0000644000175000017500000000252011167213475030675 0ustar raflraflpackage MooseX::Emulate::Class::Accessor::Fast::Meta::Accessor; use Moose; extends 'Moose::Meta::Method::Accessor'; sub _generate_accessor_method { my $attr = (shift)->associated_attribute; return sub { my $self = shift; $attr->set_value($self, $_[0]) if scalar(@_) == 1; $attr->set_value($self, [@_]) if scalar(@_) > 1; $attr->get_value($self); }; } sub _generate_writer_method { my $attr = (shift)->associated_attribute; return sub { my $self = shift; $attr->set_value($self, $_[0]) if scalar(@_) == 1; $attr->set_value($self, [@_]) if scalar(@_) > 1; }; } # FIXME - this is shite, but it does work... sub _generate_accessor_method_inline { my $attr = (shift)->associated_attribute; my $attr_name = $attr->name; my $meta_instance = $attr->associated_class->instance_metaclass; my $code = eval "sub { my \$self = shift; \$self->{'$attr_name'} = \$_[0] if scalar(\@_) == 1; \$self->{'$attr_name'} = [\@_] if scalar(\@_) > 1; \$self->{'$attr_name'}; }"; confess "Could not generate inline accessor because : $@" if $@; return $code; } { my $meta = __PACKAGE__->meta; $meta->add_method(_generate_writer_method_inline => $meta->get_method('_generate_accessor_method_inline')); } no Moose; 1; MooseX-Emulate-Class-Accessor-Fast-0.00903/lib/MooseX/Emulate/Class/Accessor/Fast/Meta/Role/0000711000175000017500000000000011254004364027457 5ustar raflrafl././@LongLink0000000000000000000000000000015100000000000011562 Lustar rootrootMooseX-Emulate-Class-Accessor-Fast-0.00903/lib/MooseX/Emulate/Class/Accessor/Fast/Meta/Role/Attribute.pmMooseX-Emulate-Class-Accessor-Fast-0.00903/lib/MooseX/Emulate/Class/Accessor/Fast/Meta/Role/Attribut0000644000175000017500000000026111167156245031220 0ustar raflraflpackage MooseX::Emulate::Class::Accessor::Fast::Meta::Role::Attribute; use Moose::Role; sub accessor_metaclass { 'MooseX::Emulate::Class::Accessor::Fast::Meta::Accessor' } 1; MooseX-Emulate-Class-Accessor-Fast-0.00903/lib/MooseX/Adopt/0000711000175000017500000000000011254004364021637 5ustar raflraflMooseX-Emulate-Class-Accessor-Fast-0.00903/lib/MooseX/Adopt/Class/0000711000175000017500000000000011254004364022704 5ustar raflraflMooseX-Emulate-Class-Accessor-Fast-0.00903/lib/MooseX/Adopt/Class/Accessor/0000711000175000017500000000000011254004364024446 5ustar raflraflMooseX-Emulate-Class-Accessor-Fast-0.00903/lib/MooseX/Adopt/Class/Accessor/Fast.pm0000644000175000017500000000217311167156245025725 0ustar raflraflpackage MooseX::Adopt::Class::Accessor::Fast; our $VERSION = '0.00200'; $INC{'Class/Accessor/Fast.pm'} = __FILE__; package #don't index Class::Accessor::Fast; use Moose; use namespace::clean; with 'MooseX::Emulate::Class::Accessor::Fast'; 1; =head1 NAME MooseX::Adopt::Class::Accessor::Fast - Hijack Class::Accessor::Fast in %INC; =head1 SYNOPSYS use MooseX::Adopt::Class::Accessor::Fast; use CAF::Using::Module; #that's it! JustWorks =head1 DESCRIPTION This module attempts to hijack L in %INC and replace it with L. Make sure it is loaded before the classes you have that use . It is meant as a tool to help you migrate your project from L, to L and ultimately, to L. =head1 SEE ALSO L, L, L =head1 AUTHORS =over 4 =item Matt S Trout =item Guillermo Roditi (groditi) =back =head1 LICENSE You may distribute this code under the same terms as Perl itself. =cut MooseX-Emulate-Class-Accessor-Fast-0.00903/README0000644000175000017500000000166111224406266017510 0ustar raflraflMooseX-Emulate-Class-Accessor-Fast INSTALLATION To install this module, run the following commands: perl Makefile.PL make make test make install SUPPORT AND DOCUMENTATION After installing, you can find documentation for this module with the perldoc command. perldoc MooseX::Emulate::Class::Accessor::Fast You can also look for information at: Search CPAN http://search.cpan.org/dist/MooseX-Emulate-Class-Accessor-Fast CPAN Request Tracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=MooseX-Emulate-Class-Accessor-Fast AnnoCPAN, annotated CPAN documentation: http://annocpan.org/dist/MooseX-Emulate-Class-Accessor-Fast CPAN Ratings: http://cpanratings.perl.org/d/MooseX-Emulate-Class-Accessor-Fast COPYRIGHT AND LICENCE Copyright (C) 2007 Guillermo Roditi This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.