local-lib5/lib/perl5/XML/Atom/Person.pm

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