The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

ZABA / Treex-PML-2.04 / lib / Treex / PML / Schema / Template.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
—
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113

              
package Treex::PML::Schema::Template;
use strict;
use warnings;
use vars qw($VERSION);
BEGIN {
  $VERSION='2.04'; # version template
}
no warnings 'uninitialized';
use Carp;
use Treex::PML::Schema::Constants;
use base qw(Treex::PML::Schema::XMLNode);
sub get_decl_type     { return(PML_TEMPLATE_DECL); }
sub get_decl_type_str { return('template'); }
sub simplify {
  my ($template,$opts)=@_;
  for my $c (
    sort {$a->{'-#'} <=> $b->{'-#'}}
      ((map { @{$template->{$_}} } grep {exists $template->{$_} } qw(copy import)),
       (map { values %{$template->{$_}} } grep {exists $template->{$_} } qw(template derive)))) {
    #    print STDERR "Processing <$c->{-xml_name}>\n";
    $c->simplify($opts);
  }
  delete $template->{template} unless $opts->{'preserve_templates'};
  delete $template->{copy} unless $opts->{'no_copy'};
  for (qw(derive import)) {
    if ($template->get_decl_type == PML_TEMPLATE_DECL) {
      delete $template->{$_} unless $opts->{'no_template_'.$_};
    } else {
      delete $template->{$_} unless $opts->{'no_'.$_};
    }
  }
}
sub for_each_decl {
  my ($self,$sub)=@_;
  $sub->($self);
  for my $d (qw(template type)) {
    if (ref $self->{$d}) {
      foreach (values %{$self->{$d}}) {
        $_->for_each_decl($sub);
      }
    }
  }
}
1;
__END__
# Below is stub documentation for your module. You'd better edit it!
=head1 NAME
Treex::PML::Schema::Template - a class representing templates in a Treex::PML::Schema
=head1 SYNOPSIS
use Treex::PML::Schema::Template;
=head1 DESCRIPTION
This class represents templates in a Treex::PML::Schema and is also a base for
PMLShema class itself.
=head1 METHODS
=over 5
=item $decl->get_decl_type ()
Returns the constant PML_TEMPLATE_DECL.
=item $decl->get_decl_type_str ()
Returns the string 'template'.
=item $decl->simplify ()
Process all modularity instructions used in within the template and
simplify embedded templates.
=item $schema->for_each_decl (sub{...})
This method traverses all nested declarations and sub-declarations and
calls a given subroutine passing the sub-declaration object as a
parameter.
=back
=head2 EXPORT
None by default.
=head1 SEE ALSO
L<Treex::PML::Schema>, L<Treex::PML::Schema::Copy>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2008-2010 by Petr Pajas
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.2 or,
at your option, any later version of Perl 5 you may have available.
=head1 BUGS
None reported... yet.
=cut