File Coverage

blib/lib/Iterator/File/Source/Interface.pm
Criterion Covered Total %
statement 17 22 77.2
branch n/a
condition n/a
subroutine 5 10 50.0
pod 6 6 100.0
total 28 38 73.6


line stmt bran cond sub pod time code
1             package Iterator::File::Source::Interface;
2              
3             ## $Id: Interface.pm,v 1.5 2008/06/11 05:20:07 wdr1 Exp $
4              
5 5     5   1446 use 5.006;
  5         16  
  5         193  
6 5     5   23 use strict;
  5         8  
  5         278  
7 5     5   24 use warnings;
  5         8  
  5         134  
8              
9 5     5   28 use Iterator::File::Utility;
  5         13  
  5         65  
10              
11             our @ISA = qw(Iterator::File::Utility);
12             our $VERSION = substr(q$Revision: 1.5 $, 10);
13              
14             our %default_config = ();
15              
16             sub new {
17 10     10 1 45 my ($class, %config) = @_;
18              
19 10         75 %config = (%default_config, %config);
20 10         76 my $self = $class->SUPER::new( %config );
21 10         30 bless($self, $class);
22              
23 10         39 return $self;
24             }
25              
26              
27 0     0 1   sub initialize {}
28              
29              
30 0     0 1   sub next {}
31              
32              
33 0     0 1   sub value {}
34              
35              
36 0     0 1   sub advance_to {}
37              
38              
39 0     0 1   sub finish {}
40              
41              
42             1;
43             __END__