File Coverage

blib/lib/Treex/PML/Schema/Type.pm
Criterion Covered Total %
statement 24 28 85.7
branch n/a
condition n/a
subroutine 10 13 76.9
pod 5 5 100.0
total 39 46 84.7


line stmt bran cond sub pod time code
1             package Treex::PML::Schema::Type;
2              
3 6     6   39 use strict;
  6         12  
  6         159  
4 6     6   27 use warnings;
  6         10  
  6         154  
5              
6 6     6   26 use vars qw($VERSION);
  6         9  
  6         234  
7             BEGIN {
8 6     6   90 $VERSION='2.24'; # version template
9             }
10 6     6   28 no warnings 'uninitialized';
  6         11  
  6         198  
11 6     6   31 use Carp;
  6         11  
  6         319  
12              
13 6     6   36 use Treex::PML::Schema::Constants;
  6         25  
  6         512  
14 6     6   34 use base qw( Treex::PML::Schema::Decl );
  6         11  
  6         1234  
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 0 sub is_atomic { undef }
52 1348     1348 1 2312 sub get_decl_type { return PML_TYPE_DECL; }
53 0     0 1 0 sub get_decl_type_str { return 'type'; }
54 369     369 1 1277 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__