[Jifty-commit] r3870 - in Template-Declare/lib/Template/Declare: .

[jifty-commit at lists.jifty.org]

Author: agentz
Date: Mon Aug 13 02:05:57 2007
New Revision: 3870

Modified:
   Template-Declare/lib/Template/Declare/TagSet.pm
   Template-Declare/lib/Template/Declare/TagSet/HTML.pm
   Template-Declare/lib/Template/Declare/TagSet/XUL.pm

Log:
TD - updated the tag set POD to reflect recent changes

Modified: Template-Declare/lib/Template/Declare/TagSet.pm
==============================================================================
--- Template-Declare/lib/Template/Declare/TagSet.pm	(original)
+++ Template-Declare/lib/Template/Declare/TagSet.pm	Mon Aug 13 02:05:57 2007
@@ -58,11 +58,16 @@
 
 =over
 
-=item C<< $list = __PACKAGE__->get_tag_list() >>
+=item C<< $obj = Template::Declare::TagSet->new({ package => 'Foo::Bar', namespace => undef }); >>
+
+Constructor created by C<Class::Accessor::Fast>,
+accepting an optional option list.
+
+=item C<< $list = $obj->get_tag_list() >>
 
 Returns an array ref for the tag names.
 
-=item C<< $bool = __PACKAGE__->get_alternate_spelling($tag) >>
+=item C<< $bool = $obj->get_alternate_spelling($tag) >>
 
 Returns whether a tag has an alternative spelling. Basically
 it provides a way to work around naming conflicts, for
@@ -70,7 +75,7 @@
 operator in Perl and the C<template> tag in XUL conflicts
 with the C<template> sub exported by C<Template::Declare::Tags>.
 
-=item C<< $bool = __PACKAGE__->can_combine_empty_tags($tag) >>
+=item C<< $bool = $obj->can_combine_empty_tags($tag) >>
 
 Specifies whether "<tag></tag>" can be combined into a single
 token "<tag />".
@@ -84,6 +89,24 @@
 
 =back
 
+=head1 ACCESSORS
+
+This class has two read-only accessors:
+
+=over
+
+=item C<< $obj->package() >>
+
+Retrieves the value of the C<package> option set via
+the constructor.
+
+=item C<< $obj->namespace() >>
+
+Retrieves the value of the C<namespace> option set by
+the constructor.
+
+=back
+
 =head1 AUTHOR
 
 Agent Zhang E<lt>agentzh at gmail.comE<gt>.

Modified: Template-Declare/lib/Template/Declare/TagSet/HTML.pm
==============================================================================
--- Template-Declare/lib/Template/Declare/TagSet/HTML.pm	(original)
+++ Template-Declare/lib/Template/Declare/TagSet/HTML.pm	Mon Aug 13 02:05:57 2007
@@ -42,7 +42,9 @@
 =head1 SYNOPSIS
 
     use Template::Declare::TagSet::HTML;
-    my $tagset = 'Template::Declare::TagSet::HTML';
+    my $tagset = Template::Declare::TagSet::HTML->new(
+        { package => 'html', namespace => 'html' }
+    );
     my $list = $tagset->get_tag_list();
     print "@$list";
 
@@ -71,7 +73,11 @@
 
 =over
 
-=item C<< $list = __PACKAGE__->get_tag_list() >>
+=item C<< $obj = Template::Declare::TagSet::HTML->new({ namespace => $XML_namespace, package => $Perl_package }) >>
+
+Constructor inherited from L<Template::Declare::TagSet>.
+
+=item C<< $list = $obj->get_tag_list() >>
 
 Returns an array ref for the tag names.
 
@@ -79,7 +85,7 @@
 C<:html2 :html3 :html4 :netscape> and C<:form>
 tagsets from CGI.pm.
 
-=item C<< $bool = __PACKAGE__->get_alternate_spelling($tag) >>
+=item C<< $bool = $obj->get_alternate_spelling($tag) >>
 
 Returns the alternative spelling for a given tag if any or
 undef otherwise. Currently, C<tr> is mapped to C<row>,
@@ -92,7 +98,7 @@
 
 For similar reasons, 'base' often gives us trouble too ;)
 
-=item C<< $bool = __PACKAGE__->can_combine_empty_tags($tag) >>
+=item C<< $bool = $obj->can_combine_empty_tags($tag) >>
 
 =back
 

Modified: Template-Declare/lib/Template/Declare/TagSet/XUL.pm
==============================================================================
--- Template-Declare/lib/Template/Declare/TagSet/XUL.pm	(original)
+++ Template-Declare/lib/Template/Declare/TagSet/XUL.pm	Mon Aug 13 02:05:57 2007
@@ -61,7 +61,8 @@
 =head1 SYNOPSIS
 
     use Template::Declare::TagSet::XUL;
-    my $tagset = 'Template::Declare::TagSet::XUL';
+    my $tagset = Template::Declare::TagSet::XUL->new(
+        namespace => undef, package => 'self');
     my $list = $tagset->get_tag_list();
     print "@$list";
 
@@ -89,19 +90,23 @@
 
 =over
 
-=item C<< $list = __PACKAGE__->get_tag_list() >>
+=item C<< $obj = Template::Declare::TagSet::XUL->new({ namespace => $XML_namespace, package => $Perl_package }) >>
+
+Constructor inherited from L<Template::Declare::TagSet>.
+
+=item C<< $list = $obj->get_tag_list() >>
 
 Returns an array ref for the tag names.
 
 The tag list was extracted from L<http://www.xulplanet.com/references/elemref/refall_elemref.xml> (only C<< <element name='...'> >> were recognized).
 
-=item C<< $bool = __PACKAGE__->get_alternate_spelling($tag) >>
+=item C<< $bool = $obj->get_alternate_spelling($tag) >>
 
 Returns the alternative spelling for a given tag if any or
 undef otherwise. Currently, C<template> is mapped to C<xul_template> because there is already a C<template> sub exported
 by L<Template::Declare::Tags>.
 
-=item C<< $bool = __PACKAGE__->can_combine_empty_tags($tag) >>
+=item C<< $bool = $obj->can_combine_empty_tags($tag) >>
 
 Always returns true (inherited directly from the base class,
 L<Template::Declare::TagSet>.