Changeset 31367

Show
Ignore:
Timestamp:
03/19/09 17:58:09 (4 years ago)
Author:
daisuke
Message:

Any::Moose

Location:
lang/perl/Data-Feed/trunk/lib/Data
Files:
14 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Data-Feed/trunk/lib/Data/Feed.pm

    r21726 r31367  
    33package Data::Feed; 
    44use 5.008; 
    5 use Moose; 
     5use Any::Moose; 
    66use Carp(); 
    77use Scalar::Util (); 
    88use URI::Fetch; 
     9 
     10use constant DEBUG => exists $ENV{DATA_FEED_DEBUG} ? $ENV{DATA_FEED_DEBUG} : 0; 
    911 
    1012our $VERSION = '0.00007'; 
    … …  
    1820__PACKAGE__->meta->make_immutable; 
    1921 
    20 no Moose; 
     22no Any::Moose; 
    2123 
    2224sub parse { 

  • lang/perl/Data-Feed/trunk/lib/Data/Feed/Atom.pm

    r21724 r31367  
    22 
    33package Data::Feed::Atom; 
    4 use Moose; 
     4use Any::Moose; 
    55use Data::Feed::Atom::Entry; 
    66use XML::Atom::Feed; 
    … …  
    1414__PACKAGE__->meta->make_immutable; 
    1515 
    16 no Moose; 
     16no Any::Moose; 
    1717 
    1818use constant format => 'Atom'; 
    1919 
    2020BEGIN { 
    21     my $meta = __PACKAGE__->meta; 
    2221    my %methods = map { ($_ => $_) } 
    2322        qw(title copyright language generator id updated tagline as_xml); 
    2423    $methods{description} = 'tagline'; 
    2524    while (my($name, $proxy) = each %methods) { 
    26         $meta->add_method($name => Moose::Meta::Method->wrap( 
    27             package_name => __PACKAGE__, 
    28             name         => $name, 
    29             body         => sub { shift->feed->$proxy(@_) } 
    30         )); 
     25        no strict 'refs'; 
     26        *{$name} = sub { shift->feed->$proxy(@_) } 
    3127    } 
    3228} 

  • lang/perl/Data-Feed/trunk/lib/Data/Feed/Atom/Entry.pm

    r21724 r31367  
    22 
    33package Data::Feed::Atom::Entry; 
    4 use Moose; 
     4use Any::Moose; 
    55use Data::Feed::Web::Content; 
    66use List::Util qw( first ); 
    … …  
    1616__PACKAGE__->meta->make_immutable; 
    1717 
    18 no Moose; 
     18no Any::Moose; 
    1919 
    2020BEGIN { 
    21     my $meta = __PACKAGE__->meta; 
    2221    my %methods = map { ($_ => $_) } 
    2322        qw(title updated); 
    2423    while (my($name, $proxy) = each %methods) { 
    25         $meta->add_method($name => Moose::Meta::Method->wrap( 
    26             package_name => __PACKAGE__, 
    27             name         => $name, 
    28             body         => sub { shift->entry->$proxy(@_) } 
    29         )); 
     24        no strict 'refs'; 
     25        *{$name} = sub { shift->entry->$proxy(@_) } 
    3026    } 
    3127} 
    … …  
    6763    if (@_) { 
    6864        my %param; 
    69         if (blessed $_[0] && $_[0]->isa('Data::Feed::Web::Content')) { 
     65        if (Scalar::Util::blessed $_[0] && $_[0]->isa('Data::Feed::Web::Content')) { 
    7066            %param = (Body => $_[0]->body); 
    7167        } else { 

  • lang/perl/Data-Feed/trunk/lib/Data/Feed/Feed.pm

    r16223 r31367  
    22 
    33package Data::Feed::Feed; 
    4 use Moose::Role; 
     4use Any::Moose '::Role'; 
    55 
    6 no Moose; 
     6no Any::Moose '::Role'; 
    77 
    881; 

  • lang/perl/Data-Feed/trunk/lib/Data/Feed/Item.pm

    r16223 r31367  
    22 
    33package Data::Feed::Item; 
    4 use Moose::Role; 
     4use Any::Moose '::Role'; 
    55 
    6 no Moose; 
     6no Any::Moose '::Item'; 
    77 
    881; 

  • lang/perl/Data-Feed/trunk/lib/Data/Feed/Parser.pm

    r16223 r31367  
    22 
    33package Data::Feed::Parser; 
    4 use Moose::Role; 
     4use Any::Moose '::Role'; 
    55 
    66requires 'parse'; 
    77 
    8 no Moose; 
     8no Any::Moose '::Role'; 
    99 
    10101; 

  • lang/perl/Data-Feed/trunk/lib/Data/Feed/Parser/Atom.pm

    r16239 r31367  
    22 
    33package Data::Feed::Parser::Atom; 
    4 use Moose; 
     4use Any::Moose; 
    55use Data::Feed::Atom; 
    66use XML::Atom::Feed; 
    … …  
    1010__PACKAGE__->meta->make_immutable; 
    1111 
    12 no Moose; 
     12no Any::Moose; 
    1313 
    1414sub parse { 

  • lang/perl/Data-Feed/trunk/lib/Data/Feed/Parser/RSS.pm

    r19013 r31367  
    22 
    33package Data::Feed::Parser::RSS; 
    4 use Moose; 
     4use Any::Moose; 
     5use Data::Feed; 
    56use Data::Feed::RSS; 
    67use Carp(); 
    … …  
    1516    foreach my $module (@candidates) { 
    1617        eval { Class::MOP::load_class($module) }; 
     18        warn if &Data::Feed::DEBUG && $@; 
    1719        next if $@; 
    1820 
    … …  
    3032__PACKAGE__->meta->make_immutable; 
    3133 
    32 no Moose; 
     34no Any::Moose; 
    3335 
    3436sub parse { 

  • lang/perl/Data-Feed/trunk/lib/Data/Feed/RSS.pm

    r21725 r31367  
    22 
    33package Data::Feed::RSS; 
    4 use Moose; 
     4use Any::Moose; 
    55use Data::Feed::Parser::RSS; 
    66use Data::Feed::RSS::Entry; 
    … …  
    1212__PACKAGE__->meta->make_immutable; 
    1313 
    14 no Moose; 
     14no Any::Moose; 
    1515 
    1616sub BUILDARGS { 

  • lang/perl/Data-Feed/trunk/lib/Data/Feed/RSS/Entry.pm

    r21719 r31367  
    22 
    33package Data::Feed::RSS::Entry; 
    4 use Moose; 
     4use Any::Moose; 
    55use Carp (); 
    66use Data::Feed::Web::Content; 
    … …  
    1313__PACKAGE__->meta->make_immutable; 
    1414 
    15 no Moose; 
     15no Any::Moose; 
    1616 
    1717sub BUILDARGS { 

  • lang/perl/Data-Feed/trunk/lib/Data/Feed/Web/Content.pm

    r17002 r31367  
    22 
    33package Data::Feed::Web::Content; 
    4 use Moose; 
     4use Any::Moose; 
    55 
    66has 'type' => ( 
    … …  
    1616__PACKAGE__->meta->make_immutable; 
    1717 
    18 no Moose; 
     18no Any::Moose; 
    1919 
    20201; 

  • lang/perl/Data-Feed/trunk/lib/Data/Feed/Web/Enclosure.pm

    r16249 r31367  
    33package Data::Feed::Web::Enclosure; 
    44 
    5 use Moose; 
     5use Any::Moose; 
    66 
    77has 'url' => ( 
    … …  
    2323__PACKAGE__->meta->make_immutable; 
    2424 
    25 no Moose; 
     25no Any::Moose; 
    2626 
    27271; 

  • lang/perl/Data-Feed/trunk/lib/Data/Feed/Web/Entry.pm

    r16253 r31367  
    22 
    33package Data::Feed::Web::Entry; 
    4 use Moose::Role; 
     4use Any::Moose '::Role'; 
    55use Data::Feed::Web::Enclosure; 
    66 
    … …  
    2424requires 'enclosures'; 
    2525 
    26 no Moose; 
     26no Any::Moose '::Role'; 
    2727 
    28281; 

  • lang/perl/Data-Feed/trunk/lib/Data/Feed/Web/Feed.pm

    r21724 r31367  
    22 
    33package Data::Feed::Web::Feed; 
    4 use Moose::Role; 
     4use Any::Moose '::Role'; 
    55 
    66has 'feed' => ( 
    … …  
    2323); 
    2424 
    25 no Moose; 
     25no Any::Moose '::Role'; 
    2626 
    27271;