Changeset 1527

Show
Ignore:
Timestamp:
08/20/06 21:13:32
Author:
miyagawa
Message:

renamed Plagger::Content to Plagger:Text, to make it easy to understand considering Atom RFC's "Text Construct"

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/hackathon-summary/plagger/lib/Plagger/Entry.pm

    r1524 r1527  
    44use base qw( Plagger::Thing ); 
    55__PACKAGE__->mk_accessors(qw( tags link feed_link id rate icon meta source )); 
    6 __PACKAGE__->mk_content_accessors(qw( title author summary body )); 
     6__PACKAGE__->mk_text_accessors(qw( title author summary body )); 
    77__PACKAGE__->mk_date_accessors(qw( date )); 
    88 

  • branches/hackathon-summary/plagger/lib/Plagger/Feed.pm

    r1524 r1527  
    44use base qw( Plagger::Thing ); 
    55__PACKAGE__->mk_accessors(qw( link url image language tags meta type source_xml aggregator )); 
    6 __PACKAGE__->mk_content_accessors(qw( description author title )); 
     6__PACKAGE__->mk_text_accessors(qw( description author title )); 
    77__PACKAGE__->mk_date_accessors(qw( updated )); 
    88 

  • branches/hackathon-summary/plagger/lib/Plagger/Text.pm

    r1525 r1527  
    1 package Plagger::Content; 
     1package Plagger::Text; 
    22use strict; 
    33use base qw( Class::Accessor::Fast ); 

  • branches/hackathon-summary/plagger/lib/Plagger/Thing.pm

    r1521 r1527  
    33use base qw( Class::Accessor::Fast ); 
    44 
    5 use Plagger::Content; 
     5use Plagger::Text; 
    66 
    77sub has_tag { 
    …… 
    4545} 
    4646 
    47 sub mk_content_accessors { 
     47sub mk_text_accessors { 
    4848    my $class = shift; 
    4949    for my $key (@_) { 
    …… 
    5252            my $obj = shift; 
    5353            if (@_) { 
    54                 my $content = $_[0]; 
    55                 unless (ref($content)) { 
    56                     $content = Plagger::Content->new_from_text($content); 
     54                my $text = $_[0]; 
     55                unless (ref($text)) { 
     56                    $text = Plagger::Text->new_from_text($text); 
    5757                } 
    58                 $obj->{$key} = $content; 
     58                $obj->{$key} = $text; 
    5959            } else { 
    6060                return $obj->{$key}; 

  • branches/hackathon-summary/plagger/t/core/text.t

    r1521 r1527  
    66run { 
    77    my $block = shift; 
    8     my $content = Plagger::Content->new_from_text($block->input); 
    9     my $test = { type => $content->type, plaintext => $content->plaintext }; 
     8    my $text = Plagger::Text->new_from_text($block->input); 
     9    my $test = { type => $text->type, plaintext => $text->plaintext }; 
    1010    is_deeply $test, $block->expected, $block->name; 
    1111} 

  • branches/hackathon-summary/plagger/t/plugins/Filter-FetchEnclosure/fetch.t

    r1524 r1527  
    1010} 
    1111 
    12 $SIG{__WARN__} = \&Carp::cluck; 
    13 $SIG{__DIE__} = \&Carp::confess; 
    1412plan tests => 2; 
    1513