File Coverage

blib/lib/XML/Atom/Link.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::Link;
4 2     2   24260 use strict;
  2         4  
  2         75  
5 2     2   10 use base qw( XML::Atom::Base );
  2         3  
  2         658  
6              
7             use XML::Atom;
8              
9             __PACKAGE__->mk_attr_accessors(qw( rel href hreflang title type length ));
10              
11             sub element_name { 'link' }
12              
13             ## Maintain backwards compatibility with the old Link->set method.
14             sub set { shift->set_attr(@_) }
15              
16             1;