Show
Ignore:
Timestamp:
03/25/08 22:46:43 (7 years ago)
Author:
takemaru
Message:

lang/perl/XML-Atom-Service: 0.16.0 released. change coding conventions.

Location:
lang/perl/XML-Atom-Service/tags/0.16.0
Files:
1 modified
1 copied

Legend:

Unmodified
Added
Removed
  • lang/perl/XML-Atom-Service/tags/0.16.0/lib/XML/Atom/Atompub.pm

    r1831 r8380  
    88use XML::Atom::Thing; 
    99 
    10 if ( ! XML::Atom::Entry->can('edited') ) { 
     10unless (XML::Atom::Entry->can('edited')) { 
    1111    *XML::Atom::Entry::edited = sub { 
    12         my $self   = shift; 
    13         my $ns_uri = $XML::Atom::Service::DefaultNamespace; 
    14         my $app    = XML::Atom::Namespace->new( app => $ns_uri ); 
    15         if (@_) { 
    16             $self->set( $app, 'edited', $_[0] ); 
    17         } 
    18         else { 
    19             $self->get( $app, 'edited' ); 
    20         } 
     12        my($self, $edited) = @_; 
     13        my $ns_uri = $XML::Atom::Service::DefaultNamespace; 
     14        my $app    = XML::Atom::Namespace->new(app => $ns_uri); 
     15        if ($edited) { 
     16            $self->set($app, 'edited', $edited); 
     17        } 
     18        else { 
     19            $self->get($app, 'edited'); 
     20        } 
    2121    }; 
    2222} 
    2323 
    24 if ( ! XML::Atom::Entry->can('control') ) { 
    25     XML::Atom::Entry->mk_object_list_accessor( 'control' => 'XML::Atom::Control' ); 
     24unless (XML::Atom::Entry->can('control')) { 
     25    XML::Atom::Entry->mk_object_list_accessor('control' => 'XML::Atom::Control'); 
    2626 
    2727    package XML::Atom::Control; 
    2828 
    29     use base qw( XML::Atom::Base ); 
    30  
    31     __PACKAGE__->mk_elem_accessors(qw( draft )); 
     29    use base qw(XML::Atom::Base); 
     30 
     31    __PACKAGE__->mk_elem_accessors(qw(draft)); 
    3232 
    3333    sub element_name { 'control' } 
     
    3636} 
    3737 
    38 if ( ! XML::Atom::Content->can('src') ) { 
    39     XML::Atom::Content->mk_attr_accessors( qw( src ) ); 
    40 } 
    41  
    42 if ( ! XML::Atom::Thing->can('alternate_link') ) { 
     38unless (XML::Atom::Content->can('src')) { 
     39    XML::Atom::Content->mk_attr_accessors(qw(src)); 
     40} 
     41 
     42unless (XML::Atom::Thing->can('alternate_link')) { 
    4343    *XML::Atom::Thing::alternate_link = sub { 
    44         my $atom = shift; 
    45         my @hrefs; 
    46         if (@_) { 
    47             my @links1 = grep { $_->rel && $_->rel ne 'alternate'} $atom->links; 
    48             my @links2 =  map { my $link = XML::Atom::Link->new; 
    49                                 $link->rel('alternate'); 
    50                                 $link->href($_); 
    51                                 $link } 
    52                               @_; 
    53             $atom->link( @links1, @links2 ); 
    54             @hrefs = @_; 
    55         } 
    56         else { 
    57             @hrefs = map { $_->href } grep { ! $_->rel || $_->rel eq 'alternate' } $atom->links; 
    58         } 
    59         return wantarray ? @hrefs : $hrefs[0]; 
     44        my($atom, @args) = @_; 
     45        my @hrefs; 
     46        if (@args) { 
     47            my @links1 = grep { $_->rel && $_->rel ne 'alternate'} $atom->links; 
     48            my @links2 =  map { my $link = XML::Atom::Link->new; 
     49                                $link->rel('alternate'); 
     50                                $link->href($_); 
     51                                $link } 
     52                              @args; 
     53            $atom->link( @links1, @links2 ); 
     54            @hrefs = @_; 
     55        } 
     56        else { 
     57            @hrefs = map { $_->href } grep { ! $_->rel || $_->rel eq 'alternate' } $atom->links; 
     58        } 
     59        wantarray ? @hrefs : $hrefs[0]; 
    6060    }; 
    6161} 
    6262 
    63 for my $rel qw( self edit edit-media related enclosure via first previous next last ) { 
     63for my $rel qw(self edit edit-media related enclosure via first previous next last) { 
    6464    no strict 'refs'; ## no critic 
    6565 
     
    6767    $method =~ s/-/_/g; 
    6868 
    69     next if XML::Atom::Thing->can( $method ); 
     69    next if XML::Atom::Thing->can($method); 
    7070 
    7171    *{"XML::Atom::Thing::$method"} = sub { 
    72         my $atom = shift; 
    73         my @hrefs; 
    74         if (@_) { 
    75             my @links1 = grep { ! $_->rel || $_->rel ne $rel } $atom->links; 
    76             my @links2 =  map { my $link = XML::Atom::Link->new; 
    77                                 $link->rel( $rel ); 
    78                                 $link->href($_); 
    79                                 $link } 
    80                                 @_; 
    81             $atom->link( @links1, @links2 ); 
    82             @hrefs = @_; 
    83         } 
    84         else { 
    85             @hrefs = map { $_->href } grep { $_->rel && $_->rel eq $rel } $atom->links; 
    86         } 
    87         return wantarray ? @hrefs : $hrefs[0]; 
     72        my($atom, @args) = @_; 
     73        my @hrefs; 
     74        if (@args) { 
     75            my @links1 = grep { ! $_->rel || $_->rel ne $rel } $atom->links; 
     76            my @links2 =  map { my $link = XML::Atom::Link->new; 
     77                                $link->rel( $rel ); 
     78                                $link->href($_); 
     79                                $link } 
     80                              @args; 
     81            $atom->link( @links1, @links2 ); 
     82            @hrefs = @_; 
     83        } 
     84        else { 
     85            @hrefs = map { $_->href } grep { $_->rel && $_->rel eq $rel } $atom->links; 
     86        } 
     87        wantarray ? @hrefs : $hrefs[0]; 
    8888    }; 
    8989}