Changeset 748

Show
Ignore:
Timestamp:
05/15/06 19:21:04
Author:
miyagawa
Message:

$enclosure->url("http://...") DWIMs

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/plagger/lib/Plagger/Enclosure.pm

    r727 r748  
    33 
    44use base qw( Class::Accessor::Fast ); 
    5 __PACKAGE__->mk_accessors(qw( url length type local_path )); 
     5__PACKAGE__->mk_accessors(qw( length type local_path )); 
     6 
     7use URI; 
     8 
     9sub url { 
     10    my $self = shift; 
     11    if (@_) { 
     12        $self->{url} = URI->new($_[0]); 
     13    } 
     14    $self->{url}; 
     15} 
    616 
    717sub auto_set_type {