File Coverage

blib/lib/XML/Atom/Link.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 16 18 88.8


line stmt bran cond sub pod time code
1             # $Id$
2              
3             package XML::Atom::Link;
4 20     20   105333 use strict;
  20         48  
  20         642  
5 20     20   112 use base qw( XML::Atom::Base );
  20         43  
  20         1845  
6              
7 20     20   125 use XML::Atom;
  20         53  
  20         2119  
8              
9             __PACKAGE__->mk_attr_accessors(qw( rel href hreflang title type length ));
10              
11 4     4 0 54 sub element_name { 'link' }
12              
13             ## Maintain backwards compatibility with the old Link->set method.
14 2     2 0 19 sub set { shift->set_attr(@_) }
15              
16             1;