File Coverage

blib/lib/Treex/PML/Schema/Type.pm
Criterion Covered Total %
statement 22 28 78.5
branch n/a
condition n/a
subroutine 8 13 61.5
pod 5 5 100.0
total 35 46 76.0


line stmt bran cond sub pod time code
1             package Treex::PML::Schema::Type;
2              
3 1     1   4 use strict;
  1         0  
  1         22  
4 1     1   2 use warnings;
  1         1  
  1         19  
5              
6 1     1   3 use vars qw($VERSION);
  1         1  
  1         32  
7             BEGIN {
8 1     1   11 $VERSION='2.21'; # version template
9             }
10 1     1   2 no warnings 'uninitialized';
  1         1  
  1         21  
11 1     1   3 use Carp;
  1         1  
  1         37  
12              
13 1     1   3 use Treex::PML::Schema::Constants;
  1         1  
  1         77  
14 1     1   3 use base qw( Treex::PML::Schema::Decl );
  1         1  
  1         132  
15              
16              
17             =head1 NAME
18              
19             Treex::PML::Schema::Type - implements named type declaration in a PML schema
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_name ()
32              
33             Returns type name.
34              
35             =item $decl->get_decl_type ()
36              
37             Returns the constant PML_TYPE_DECL.
38              
39             =item $decl->get_decl_type_str ()
40              
41             Returns the string 'type'.
42              
43             =item $decl->get_content_decl ()
44              
45             Returns the associated data-type declaration.
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_TYPE_DECL; }
53 0     0 1   sub get_decl_type_str { return 'type'; }
54 0     0 1   sub get_name { return $_[0]->{-name}; }
55             sub validate_object {
56 0     0 1   my $self = shift;
57 0           $self->get_content_decl->validate_object(@_);
58             }
59              
60              
61             1;
62             __END__