File Coverage

blib/lib/XML/Atom/Person.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             # $Id$
2              
3             package XML::Atom::Person;
4 2     2   37086 use strict;
  2         5  
  2         78  
5 2     2   13 use base qw( XML::Atom::Base );
  2         3  
  2         857  
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__