File Coverage

blib/lib/Net/SSH/Perl/Comp.pm

Criterion	Covered	Total	%
statement	12	24	50.0
branch	0	4	0.0
condition	0	3	0.0
subroutine	4	10	40.0
pod	5	6	83.3
total	21	47	44.6

package Net::SSH::Perl::Comp;

use strict;
use warnings;
use Carp qw( croak );

use vars qw( %COMP );
%COMP = (
    'zlib' => 'Zlib',
);

sub new {
    my $class = shift;
    my $type = shift;
    return if $type eq 'none';
    my $comp_class = join '::', __PACKAGE__, $COMP{$type} || $type;
    eval "use $comp_class;";
    my $comp = bless {}, $comp_class;
    $comp->init(@_) if @_;
    $comp;
}

sub enabled { $_[0]->{enabled} }
sub enable { $_[0]->{enabled} = 1 }

sub init { }

sub compress { $_[0] }
sub uncompress { $_[0] }

1;
__END__