File Coverage

blib/lib/Text/CSV/Encoded/Coder/Base.pm

Criterion	Covered	Total	%
statement	13	20	65.0
branch	6	8	75.0
condition			n/a
subroutine	5	10	50.0
pod	7	8	87.5
total	31	46	67.3

package Text::CSV::Encoded::Coder::Base;
$Text::CSV::Encoded::Coder::Base::VERSION = '0.25';
# VERSION

use strict;
use warnings;

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__