File Coverage

blib/lib/Treex/PML/Schema/Element.pm
Criterion Covered Total %
statement 24 27 88.8
branch n/a
condition n/a
subroutine 10 13 76.9
pod 5 5 100.0
total 39 45 86.6


line stmt bran cond sub pod time code
1             package Treex::PML::Schema::Element;
2              
3 6     6   38 use strict;
  6         17  
  6         153  
4 6     6   26 use warnings;
  6         12  
  6         143  
5              
6 6     6   26 use vars qw($VERSION);
  6         14  
  6         223  
7             BEGIN {
8 6     6   135 $VERSION='2.24'; # version template
9             }
10 6     6   31 no warnings 'uninitialized';
  6         12  
  6         180  
11 6     6   28 use Carp;
  6         12  
  6         312  
12              
13 6     6   39 use Treex::PML::Schema::Constants;
  6         11  
  6         475  
14 6     6   31 use base qw( Treex::PML::Schema::Decl );
  6         11  
  6         1325  
15              
16             =head1 NAME
17              
18             Treex::PML::Schema::Element - implements declaration of an element of a
19             sequence.
20              
21             =head1 INHERITANCE
22              
23             This class inherits from L.
24              
25             =head1 METHODS
26              
27             See the super-class for the complete list.
28              
29             =over 3
30              
31             =item $decl->get_decl_type ()
32              
33             Returns the constant PML_ELEMENT_DECL.
34              
35             =item $decl->get_decl_type_str ()
36              
37             Returns the string 'element'.
38              
39             =item $decl->get_name ()
40              
41             Return name of the element.
42              
43             =item $decl->get_parent_sequence ()
44              
45             Return the sequence declaration the member belongs to.
46              
47             =back
48              
49             =cut
50              
51 0     0 1 0 sub is_atomic { undef }
52 521     521 1 961 sub get_decl_type { return PML_ELEMENT_DECL; }
53 0     0 1 0 sub get_decl_type_str { return 'element'; }
54 182     182 1 615 sub get_name { return $_[0]->{-name}; }
55             *get_parent_sequence = \&Treex::PML::Schema::Decl::get_parent_decl;
56              
57             sub validate_object {
58 0     0 1   shift->get_content_decl->validate_object(@_);
59             }
60              
61              
62             1;
63             __END__