Perl 5.42 is released: See what's new Learn more

ZABA / Treex-PML-2.06 / lib / Treex / PML / StandardFactory.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
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149

              
package Treex::PML::StandardFactory;
use 5.008;
use strict;
use warnings;
use vars qw($VERSION);
BEGIN {
  $VERSION='2.06'; # version template
}
use Carp;
use base qw(Treex::PML::Factory);
use UNIVERSAL::DOES;
use Treex::PML::Struct;
use Treex::PML::Container;
use Treex::PML::Alt;
use Treex::PML::List;
use Treex::PML::Seq;
use Treex::PML::Node;
use Treex::PML::FSFormat;
use Treex::PML::Document;
sub createPMLSchema {
  my $self = shift;
  return Treex::PML::Schema->new(@_);
}
sub createPMLInstance {
  my $self = shift;
  if (@_) {
    return $self->createPMLInstance()->load(@_);
  } else {
    return Treex::PML::Instance->new();
  }
}
sub createDocument {
  my $self = shift;
  return Treex::PML::Document->new(@_);
}
sub createDocumentFromFile {
  my $self = shift;
  return $self->createDocument->load(@_);
}
sub createFSFormat {
  my $self = shift;
  return Treex::PML::FSFormat->new(@_);
}
sub createNode {
  my $self=shift;
  return Treex::PML::Node->new(@_);
}
sub createTypedNode {
  my $self = shift;
  my $node;
  if (@_>1 and !ref($_[0]) and UNIVERSAL::DOES::does($_[1],'Treex::PML::Schema')) {
    my $type = shift;
    my $schema = shift;
    $node = $self->createNode(@_);
    $node->set_type_by_name($schema,$type);
  } else {
    my $decl = shift;
    $node = $self->createNode(@_);
    $node->set_type($decl);
  }
  return $node;
}
sub createList {
  my $self = shift;
  return @_>0 ? Treex::PML::List->new_from_ref(@_) : Treex::PML::List->new();
}
sub createSeq {
  my $self = shift;
  return Treex::PML::Seq->new(@_);
}
sub createAlt {
  my $self = shift;
  return @_>0 ? Treex::PML::Alt->new_from_ref(@_) : Treex::PML::Alt->new();
}
sub createContainer {
  my $self = shift;
  return Treex::PML::Container->new(@_);
}
sub createStructure {
  my $self = shift;
  return Treex::PML::Struct->new(@_);
}
1;
__END__
=head1 NAME
Treex::PML::StandardFactory - implements standard Treex::PML object factory
=head1 SYNOPSIS
   use Treex::PML::StandardFactory;
   Treex::PML::StandardFactory->make_default();
   # actually 'use Treex::PML' does all this when first loaded
=head1 DESCRIPTION
This class implements the standard object factory for L<Treex::PML>,
returning instances of the following classes:
L<Treex::PML::Struct>
L<Treex::PML::Container>
L<Treex::PML::Alt>
L<Treex::PML::List>
L<Treex::PML::Seq>
L<Treex::PML::Node>
L<Treex::PML::FSFormat>
L<Treex::PML::Document>
=head2 EXPORT
None by default.
=head1 SEE ALSO
L<Treex::PML>, L<Treex::PML::Factory>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 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