File Coverage

blib/lib/Class/PObject/Type/TEXT.pm
Criterion Covered Total %
statement 12 14 85.7
branch 0 2 0.0
condition n/a
subroutine 4 6 66.6
pod n/a
total 16 22 72.7


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