File Coverage

blib/lib/Class/PObject/Type/INTEGER.pm
Criterion Covered Total %
statement 14 14 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod n/a
total 21 22 95.4


line stmt bran cond sub pod time code
1             package Class::PObject::Type::INTEGER;
2              
3             # $Id: INTEGER.pm,v 1.3 2003/09/09 00:11:59 sherzodr Exp $
4              
5 6     6   22 use strict;
  6         10  
  6         174  
6             #use diagnostics;
7 6     6   21 use vars ('$VERSION', '@ISA');
  6         6  
  6         260  
8 6     6   22 use Class::PObject::Type;
  6         7  
  6         431  
9             use overload (
10 9     9   36 '""' => sub { $_[0]->id },
11 19 50   19   51 bool => sub { $_[0]->id ? 1 : 0 },
12 6         71 fallback => 1,
13 6     6   23 );
  6         7  
14              
15             @ISA = ("Class::PObject::Type");
16              
17             $VERSION = '1.00';
18              
19             1;
20             __END__