File Coverage

blib/lib/WSST/Schema/Data.pm
Criterion Covered Total %
statement 16 19 84.2
branch 2 4 50.0
condition n/a
subroutine 4 5 80.0
pod 2 2 100.0
total 24 30 80.0


line stmt bran cond sub pod time code
1             package WSST::Schema::Data;
2              
3 5     5   31 use strict;
  5         12  
  5         221  
4 5     5   30 use base qw(WSST::Schema::Base);
  5         19  
  5         3396  
5             __PACKAGE__->mk_accessors(qw(company_name service_name version title abstract
6             license author see_also copyright methods));
7              
8 5     5   2760 use WSST::Schema::Method;
  5         14  
  5         45  
9              
10             our $VERSION = '0.1.1';
11              
12             sub new {
13 3     3 1 9 my $class = shift;
14 3         39 my $self = $class->SUPER::new(@_);
15 3 100       40 if ($self->{methods}) {
16 2         5 foreach my $method (@{$self->{methods}}) {
  2         10  
17 3         25 $method = WSST::Schema::Method->new($method);
18             }
19             }
20 3         16 return $self;
21             }
22              
23             sub meta_spec {
24 0     0 1   my $self = shift;
25 0 0         $self->{'meta-spec'} = $_[0] if scalar(@_);
26 0           return $self->{'meta-spec'};
27             }
28              
29             =head1 NAME
30              
31             WSST::Schema::Data - Schema::Data class of WSST
32              
33             =head1 DESCRIPTION
34              
35             This class represents the top-level elements of schema.
36              
37             =head1 METHODS
38              
39             =head2 new
40              
41             Constructor.
42              
43             =head2 company_name
44              
45             Accessor for the company name.
46              
47             =head2 service_name
48              
49             Accessor for the service name.
50              
51             =head2 version
52              
53             Accessor for the version.
54              
55             =head2 title
56              
57             Accessor for the title.
58              
59             =head2 abstract
60              
61             Accessor for the abstract.
62              
63             =head2 license
64              
65             Accessor for the license.
66              
67             =head2 author
68              
69             Accessor for the author.
70              
71             =head2 see_also
72              
73             Accessor for the see_also.
74              
75             =head2 copyright
76              
77             Accessor for the copyright.
78              
79             =head2 methods
80              
81             Accessor for the methods.
82              
83             =head2 meta_spec
84              
85             Accessor for the meta-spec.
86              
87             =head1 SEE ALSO
88              
89             http://code.google.com/p/wsst/
90              
91             =head1 AUTHORS
92              
93             Mitsuhisa Oshikawa
94             Yusuke Kawasaki
95              
96             =head1 COPYRIGHT AND LICENSE
97              
98             Copyright 2008 WSS Project Team
99              
100             =cut
101             1;