1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
# $Id$
package XML::Atom::Person;
use strict;
use base qw( XML::Atom::Base );
use XML::Atom;
use XML::Atom::Feed;
use XML::Atom::Entry;
__PACKAGE__->mk_elem_accessors(qw( email name uri url homepage ));
for my $class (qw( XML::Atom::Feed XML::Atom::Entry )) {
$class->mk_object_accessor( author => __PACKAGE__ );
$class->mk_object_accessor( contributor => __PACKAGE__ );
}
sub element_name { 'author' }
1;
__END__
=head1 NAME
XML::Atom::Person - Author or contributor object
=head1 SYNOPSIS
my $person = XML::Atom::Person->new;
$person->email('foo@example.com');
$person->name('Foo Bar');
$entry->author($person);
=head1 DESCRIPTION
I<XML::Atom::Person> represents an author or contributor element in an
Atom feed or entry.
=head1 USAGE
=head2 XML::Atom::Person->new
=head2 $person->email([ $email ])
=head2 $person->name([ $name ])
=head2 $person->uri([ $uri ])
=cut
|
