Catalyst::Model::XML::Feed::Item - stores some extra information about

Catalyst-Model-XML-Feed documentation Contained in the Catalyst-Model-XML-Feed distribution.

Index

Code Index:

NAME

Top

Catalyst::Model::XML::Feed::Item - stores some extra information about each XML feed.

SYNOPSIS

Top

   $feed{$name} = Catalyst::Model::XML::Feed::Item->new($feed, $uri);
   $feed{$name}->uri;
   $feed{$name}->updated;
   $feed{$name}->feed;

METHODS

Top

new($feed, $uri)

Creates an instance.

uri

Returns the original URI of the feed.

updated

Returns the time when the Item was created.

feed

Returns the feed.

Catalyst-Model-XML-Feed documentation Contained in the Catalyst-Model-XML-Feed distribution. 
#!/usr/bin/perl
# Item.pm
# Copyright (c) 2006 Jonathan Rockway <jrockway@cpan.org>

package Catalyst::Model::XML::Feed::Item;
use strict;
use warnings;

sub new {
    my ($class, $feed, $uri) = @_;
    my $self =
      { _feed    => $feed,
        _uri     => $uri,
        _updated => time,
      };

    bless $self, $class;
    return $self;
}

sub feed {
    my $self = shift;
    return $self->{_feed};
}

sub uri {
    my $self = shift;
    return $self->{_uri};
}

sub updated {
    my $self = shift;
    return $self->{_updated};
}

1;
__END__