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

package Text::CSV::Encoded::Coder::Base;

use strict;

BEGIN {
    $Text::CSV::Encoded::Coder::Base::VERSION = '0.03';
}

sub new {
    my $class = shift;
    my %opt   = @_;
    bless { %opt }, $class;
}


sub upgrade { 0; }


sub encode {
    my ( $self, $encoding, $str ) = @_;
    $str;
}


sub decode {
    my ( $self, $encoding, $str ) = @_;
    $str;
}


sub decode_fields_ref {
    my ( $self, $encoding, $arrayref ) = @_;
}


sub encode_fields_ref {
    my ( $self, $encoding, $arrayref ) = @_;
}


sub encode_check_value {
    $_[0]->{ encode_check_value } = $_[1] if @_ > 1;
    $_[0]->{ encode_check_value } || 0;
}


sub decode_check_value {
    $_[0]->{ decode_check_value } = $_[1] if @_ > 1;
    $_[0]->{ decode_check_value } || 0;
}


1;
__END__