Commits

Anonymous committed 1346de6

Moved away XML/Grammar/Screenplay/Struct/Tag.pm to the rejects.

It was an unused module.

Comments (0)

Files changed (3)

perl/modules/XML-Grammar-Fiction/MANIFEST

 lib/XML/Grammar/Screenplay/FromProto/Parser/QnD.pm
 lib/XML/Grammar/Screenplay/FromProto.pm
 lib/XML/Grammar/Screenplay.pm
-lib/XML/Grammar/Screenplay/Struct/Tag.pm
 lib/XML/Grammar/Screenplay/ToDocBook.pm
 lib/XML/Grammar/Screenplay/ToHTML.pm
 Makefile.PL
 README
 rejects/lib/XML/Grammar/Fiction/FromProto/Parser/PRD.pm
 rejects/lib/XML/Grammar/Fiction/RendererBase.pm
+rejects/lib/XML/Grammar/Screenplay/Struct/Tag.pm
 rejects/proto-text-to-xml.t
 rejects/QnD.pm
 rejects/Screenplay_Parser_QnD.pm

perl/modules/XML-Grammar-Fiction/lib/XML/Grammar/Screenplay/Struct/Tag.pm

-package XML::Grammar::Screenplay::Struct::Tag;
-
-use strict;
-use warnings;
-
-use Moose;
-
-=head1 NAME
-
-XML::Grammar::Screenplay::Struct::Tag - information about an XML/SGML opening or 
-closing tag.
-
-B<For internal use only>.
-
-=head1 VERSION
-
-Version 0.1.2
-
-=cut
-
-our $VERSION = '0.1.2';
-
-has 'name' => (is => "rw", isa => "Str");
-has 'line' => (is => "rw", isa => "Int");
-has 'is_standalone' => (is => "rw", isa => "Bool");
-has 'attrs' => (is => "rw", isa => "ArrayRef");
-has 'children' => (
-    is => "rw", 
-    isa => "Maybe[ArrayRef]",
-);
-
-sub append_children
-{
-    my ($self, $children) = @_;
-
-    push @{$self->children()}, @$children;
-
-    return;
-}
-
-sub append_child
-{
-    my ($self, $child) = @_;
-
-    return $self->append_children( [ $child ] );
-}
-
-sub detach_children
-{
-    my $self = shift;
-
-    my $children = $self->children();
-
-    $self->children(undef);
-
-    return $children;
-}
-
-package XML::Grammar::Screenplay::Struct::Tag::Para;
-
-use Moose;
-
-extends("XML::Grammar::Screenplay::Struct::Tag");
-
-=head1 METHODS
-
-=head2 $self->name()
-
-The tag's name.
-
-=head2 $self->line()
-
-The tag's line number.
-
-=head2 $self->is_standalone()
-
-Determines whether it's a standalone tag or not. (if it's an opening tag).
-
-=head2 $self->attrs()
-
-The attributes of the opening tag in an array.
-
-=head2 $self->children()
-
-A placeholder for the element's children.
-
-=head2 $self->append_children(\@children)
-
-Append more elements to the children.
-
-=head2 $self->append_child($child)
-
-Appends a single child. Uses C<append_children()> .
-
-=head2 my $children = $self->detach_children()
-
-Detaches the children and returns them as an array reference.
-
-=head1 AUTHOR
-
-Shlomi Fish, L<http://www.shlomifish.org/>.
-
-=head1 BUGS
-
-Please report any bugs or feature requests to
-C<bug-xml-grammar-fiction at rt.cpan.org>, or through the web interface at
-L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=XML-Grammar-Fiction>.
-I will be notified, and then you'll automatically be notified of progress on
-your bug as I make changes.
-
-=head1 ACKNOWLEDGEMENTS
-
-=head1 COPYRIGHT & LICENSE
-
-Copyright 2007 Shlomi Fish, all rights reserved.
-
-This program is released under the following license: MIT X11.
-
-=cut
-
-1;
-

perl/modules/XML-Grammar-Fiction/rejects/lib/XML/Grammar/Screenplay/Struct/Tag.pm

+package XML::Grammar::Screenplay::Struct::Tag;
+
+use strict;
+use warnings;
+
+use Moose;
+
+=head1 NAME
+
+XML::Grammar::Screenplay::Struct::Tag - information about an XML/SGML opening or 
+closing tag.
+
+B<For internal use only>.
+
+=head1 VERSION
+
+Version 0.1.2
+
+=cut
+
+our $VERSION = '0.1.2';
+
+has 'name' => (is => "rw", isa => "Str");
+has 'line' => (is => "rw", isa => "Int");
+has 'is_standalone' => (is => "rw", isa => "Bool");
+has 'attrs' => (is => "rw", isa => "ArrayRef");
+has 'children' => (
+    is => "rw", 
+    isa => "Maybe[ArrayRef]",
+);
+
+sub append_children
+{
+    my ($self, $children) = @_;
+
+    push @{$self->children()}, @$children;
+
+    return;
+}
+
+sub append_child
+{
+    my ($self, $child) = @_;
+
+    return $self->append_children( [ $child ] );
+}
+
+sub detach_children
+{
+    my $self = shift;
+
+    my $children = $self->children();
+
+    $self->children(undef);
+
+    return $children;
+}
+
+package XML::Grammar::Screenplay::Struct::Tag::Para;
+
+use Moose;
+
+extends("XML::Grammar::Screenplay::Struct::Tag");
+
+=head1 METHODS
+
+=head2 $self->name()
+
+The tag's name.
+
+=head2 $self->line()
+
+The tag's line number.
+
+=head2 $self->is_standalone()
+
+Determines whether it's a standalone tag or not. (if it's an opening tag).
+
+=head2 $self->attrs()
+
+The attributes of the opening tag in an array.
+
+=head2 $self->children()
+
+A placeholder for the element's children.
+
+=head2 $self->append_children(\@children)
+
+Append more elements to the children.
+
+=head2 $self->append_child($child)
+
+Appends a single child. Uses C<append_children()> .
+
+=head2 my $children = $self->detach_children()
+
+Detaches the children and returns them as an array reference.
+
+=head1 AUTHOR
+
+Shlomi Fish, L<http://www.shlomifish.org/>.
+
+=head1 BUGS
+
+Please report any bugs or feature requests to
+C<bug-xml-grammar-fiction at rt.cpan.org>, or through the web interface at
+L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=XML-Grammar-Fiction>.
+I will be notified, and then you'll automatically be notified of progress on
+your bug as I make changes.
+
+=head1 ACKNOWLEDGEMENTS
+
+=head1 COPYRIGHT & LICENSE
+
+Copyright 2007 Shlomi Fish, all rights reserved.
+
+This program is released under the following license: MIT X11.
+
+=cut
+
+1;
+