File Coverage

blib/lib/Text/CSV/Encoded/Coder/Base.pm
Criterion Covered Total %
statement 11 18 61.1
branch 6 8 75.0
condition n/a
subroutine 5 10 50.0
pod 7 8 87.5
total 29 44 65.9


line stmt bran cond sub pod time code
1             package Text::CSV::Encoded::Coder::Base;
2              
3 8     8   41 use strict;
  8         16  
  8         272  
4              
5             BEGIN {
6 8     8   2066 $Text::CSV::Encoded::Coder::Base::VERSION = '0.03';
7             }
8              
9             sub new {
10 7     7 0 19 my $class = shift;
11 7         27 my %opt = @_;
12 7         180 bless { %opt }, $class;
13             }
14              
15              
16 0     0 1 0 sub upgrade { 0; }
17              
18              
19             sub encode {
20 0     0 1 0 my ( $self, $encoding, $str ) = @_;
21 0         0 $str;
22             }
23              
24              
25             sub decode {
26 0     0 1 0 my ( $self, $encoding, $str ) = @_;
27 0         0 $str;
28             }
29              
30              
31             sub decode_fields_ref {
32 0     0 1 0 my ( $self, $encoding, $arrayref ) = @_;
33             }
34              
35              
36             sub encode_fields_ref {
37 0     0 1 0 my ( $self, $encoding, $arrayref ) = @_;
38             }
39              
40              
41             sub encode_check_value {
42 42 100   42 1 109043 $_[0]->{ encode_check_value } = $_[1] if @_ > 1;
43 42 100       488 $_[0]->{ encode_check_value } || 0;
44             }
45              
46              
47             sub decode_check_value {
48 37 50   37 1 12604 $_[0]->{ decode_check_value } = $_[1] if @_ > 1;
49 37 50       407 $_[0]->{ decode_check_value } || 0;
50             }
51              
52              
53             1;
54             __END__