File Coverage

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


line stmt bran cond sub pod time code
1             package Class::PObject::Type::VARCHAR;
2              
3             # VARCHAR.pm,v 1.3 2003/09/09 00:11:59 sherzodr Exp
4              
5 3     3   15 use strict;
  3         7  
  3         104  
6             #use diagnostics;
7 3     3   14 use vars ('$VERSION', '@ISA');
  3         19  
  3         138  
8 3     3   1085 use Class::PObject::Type;
  3         8  
  3         212  
9             use overload (
10 72     72   4307 '""' => sub { $_[0]->id },
11 3 100   3   160 bool => sub { $_[0]->id ? 1 : 0 },
12 3         36 fallback => 1,
13 3     3   16 );
  3         6  
14              
15             @ISA = ("Class::PObject::Type");
16              
17             $VERSION = '1.02';
18              
19              
20              
21              
22              
23             1;
24             __END__