File Coverage

blib/lib/WSST/Schema/Base.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition 2 3 66.6
subroutine 4 4 100.0
pod 1 1 100.0
total 21 22 95.4


line stmt bran cond sub pod time code
1             package WSST::Schema::Base;
2              
3 5     5   33 use strict;
  5         11  
  5         176  
4 5     5   43 use base qw(Class::Accessor::Fast);
  5         17  
  5         5185  
5              
6 5     5   18658 use constant BOOL_FIELDS => ();
  5         11  
  5         840  
7              
8             our $VERSION = '0.1.1';
9              
10             sub new {
11 23     23 1 34 my $class = shift;
12 23         109 my $self = $class->SUPER::new(@_);
13 23         387 foreach my $fld ($class->BOOL_FIELDS) {
14 50   66     258 $self->{$fld} = ($self->{$fld} && $self->{$fld} eq "true");
15             }
16 23         74 return $self;
17             }
18              
19             =head1 NAME
20              
21             WSST::Schema::Base - Base class for Schema elements
22              
23             =head1 DESCRIPTION
24              
25             This is a base class for schema elements.
26              
27             =head1 METHODS
28              
29             =head2 new
30              
31             Constructor.
32              
33             =head1 SEE ALSO
34              
35             http://code.google.com/p/wsst/
36              
37             =head1 AUTHORS
38              
39             Mitsuhisa Oshikawa
40             Yusuke Kawasaki
41              
42             =head1 COPYRIGHT AND LICENSE
43              
44             Copyright 2008 WSS Project Team
45              
46             =cut
47             1;