File Coverage

blib/lib/Treex/PML/Schema/Element.pm
Criterion Covered Total %
statement 22 27 81.4
branch n/a
condition n/a
subroutine 8 13 61.5
pod 5 5 100.0
total 35 45 77.7


line stmt bran cond sub pod time code
1             package Treex::PML::Schema::Element;
2              
3 1     1   4 use strict;
  1         1  
  1         21  
4 1     1   3 use warnings;
  1         2  
  1         19  
5              
6 1     1   3 use vars qw($VERSION);
  1         1  
  1         31  
7             BEGIN {
8 1     1   12 $VERSION='2.22'; # version template
9             }
10 1     1   3 no warnings 'uninitialized';
  1         1  
  1         20  
11 1     1   3 use Carp;
  1         1  
  1         45  
12              
13 1     1   4 use Treex::PML::Schema::Constants;
  1         0  
  1         74  
14 1     1   4 use base qw( Treex::PML::Schema::Decl );
  1         1  
  1         145  
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   sub is_atomic { undef }
52 0     0 1   sub get_decl_type { return PML_ELEMENT_DECL; }
53 0     0 1   sub get_decl_type_str { return 'element'; }
54 0     0 1   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__