File Coverage

blib/lib/Net/Delicious/Export.pm
Criterion Covered Total %
statement 6 8 75.0
branch n/a
condition n/a
subroutine 2 3 66.6
pod 1 1 100.0
total 9 12 75.0


line stmt bran cond sub pod time code
1 1     1   3827 use strict;
  1         3  
  1         57  
2              
3             package Net::Delicious::Export;
4 1     1   5 use base qw (XML::SAX::Base);
  1         2  
  1         1372  
5              
6             # $Id: Export.pm,v 1.4 2005/09/29 13:22:57 asc Exp $
7              
8             =head1 NAME
9              
10             Net::Delicious::Export - base class for exporting Net::Delicious thingies
11              
12             =head1 SYNOPSIS
13              
14             Ceci n'est pas une boite noire.
15              
16             =head1 DESCRIPTION
17              
18             Base class for exporting Net::Delicious thingies
19              
20             This package subclasses I.
21              
22             =cut
23              
24             $Net::Delicious::Export::VERSION = '1.2';
25              
26             =head1 PACKAGE METHODS
27              
28             =cut
29              
30             =head2 __PACKAGE__->new(%args)
31              
32             Valid arguments are anything you can pass a I
33             constructor.
34              
35             Returns a I object, Woot!
36              
37             =cut
38              
39             sub new {
40 0     0 1   my $pkg = shift;
41 0           return $pkg->SUPER::new(@_);
42             }
43              
44             =head1 VERSION
45              
46             1.2
47              
48             =head1 DATE
49              
50             $Date: 2005/09/29 13:22:57 $
51              
52             =head1 AUTHOR
53              
54             Aaron Straup Cope
55              
56             =head1 SEE ALSO
57              
58             L
59              
60             =head1 LICENSE
61              
62             Copyright (c) 2004 Aaron Straup Cope. All Rights Reserved.
63              
64             This is free software, you may use it and distribute it under the
65             same terms as Perl itself.
66              
67             =cut
68              
69             return 1;