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 9     9   51 use strict;
  9         16  
  9         284  
4 9     9   35 use warnings;
  9         16  
  9         423  
5              
6 9     9   62 use vars qw($VERSION);
  9         29  
  9         420  
7             BEGIN {
8 9     9   161 $VERSION='2.29'; # version template
9             }
10 9     9   35 no warnings 'uninitialized';
  9         78  
  9         408  
11 9     9   47 use Carp;
  9         12  
  9         656  
12              
13 9     9   44 use Treex::PML::Schema::Constants;
  9         12  
  9         1009  
14 9     9   45 use base qw( Treex::PML::Schema::Decl );
  9         14  
  9         2023  
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 539     539 1 748 sub get_decl_type { return PML_ELEMENT_DECL; }
53 0     0 1 0 sub get_decl_type_str { return 'element'; }
54 188     188 1 513 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__