File Coverage

blib/lib/Net/Squid/Purge.pm

Criterion	Covered	Total	%
statement	15	24	62.5
branch	0	2	0.0
condition	0	2	0.0
subroutine	5	8	62.5
pod	3	3	100.0
total	23	39	58.9

package Net::Squid::Purge;

use warnings;
use strict;
use English;

use base qw(Class::Accessor);

use Data::Dumper;

our $VERSION = '0.1';

sub new {
    my ($class, %args) = @_;
    my $type = $args{'type'} || 'HTTP';
	my $newclass = $class.'::'.$type;
	eval "use $newclass";
    $class = $EVAL_ERROR ? 'Net::Squid::Purge::HTTP' : $newclass;
    my $self = bless { %args }, $class;
    return $self;
}

sub purge { return 0; }

sub format_purge { return 0; }

1;
__END__