File Coverage

blib/lib/File/Extract/Filter/Base.pm
Criterion Covered Total %
statement 3 4 75.0
branch n/a
condition n/a
subroutine 1 2 50.0
pod 0 1 0.0
total 4 7 57.1


line stmt bran cond sub pod time code
1             # $Id: /mirror/perl/File-Extract/trunk/lib/File/Extract/Filter/Base.pm 4210 2007-10-27T13:43:07.499967Z daisuke $
2             #
3             # Copyright (c) 2005 Daisuke Maki
4             # All rights reserved.
5              
6             package File::Extract::Filter::Base;
7 1     1   8 use strict;
  1         3  
  1         73  
8              
9 0     0 0   sub filter { Carp::croak(__PACKAGE__ . '::filter() is not defined') }
10              
11             1;