[Catalyst-commits] r6200 - in trunk/Catalyst-Model-TextLinkAds: . examples lib/Catalyst/Helper/Model lib/Catalyst/Model

[davecardwell at dev.catalyst.perl.org]

Author: davecardwell
Date: 2007-03-25 22:06:47 +0100 (Sun, 25 Mar 2007)
New Revision: 6200

Added:
   trunk/Catalyst-Model-TextLinkAds/examples/Model.pm
   trunk/Catalyst-Model-TextLinkAds/examples/template.tt
Modified:
   trunk/Catalyst-Model-TextLinkAds/MANIFEST
   trunk/Catalyst-Model-TextLinkAds/lib/Catalyst/Helper/Model/TextLinkAds.pm
   trunk/Catalyst-Model-TextLinkAds/lib/Catalyst/Model/TextLinkAds.pm
Log:
Tweaking documentation to finalize first release.


Modified: trunk/Catalyst-Model-TextLinkAds/MANIFEST
===================================================================
--- trunk/Catalyst-Model-TextLinkAds/MANIFEST	2007-03-25 20:47:56 UTC (rev 6199)
+++ trunk/Catalyst-Model-TextLinkAds/MANIFEST	2007-03-25 21:06:47 UTC (rev 6200)
@@ -0,0 +1,17 @@
+Build.PL
+Changes
+examples/Model.pm
+examples/template.tt
+INSTALL
+lib/Catalyst/Helper/Model/TextLinkAds.pm
+lib/Catalyst/Model/TextLinkAds.pm
+MANIFEST
+t/00.load.t
+t/01.functionality.t
+t/02.perlcritic.t
+t/03.pod.t
+t/04.pod-coverage.t
+t/lib/TestApp
+t/lib/TestApp/Model
+t/lib/TestApp/Model/TextLinkAds.pm
+t/lib/TestApp.pm

Added: trunk/Catalyst-Model-TextLinkAds/examples/Model.pm
===================================================================
--- trunk/Catalyst-Model-TextLinkAds/examples/Model.pm	                        (rev 0)
+++ trunk/Catalyst-Model-TextLinkAds/examples/Model.pm	2007-03-25 21:06:47 UTC (rev 6200)
@@ -0,0 +1,11 @@
+package MyApp::Model::TextLinkAds;
+
+use base qw/ Catalyst::Model::TextLinkAds /;
+
+__PACKAGE__->config(
+    cache  => 0,      # optional: default uses Cache::FileCache
+    tmpdir => '/tmp', # optional: default File::Spec->tmpdir
+);
+
+
+1;
\ No newline at end of file

Added: trunk/Catalyst-Model-TextLinkAds/examples/template.tt
===================================================================
--- trunk/Catalyst-Model-TextLinkAds/examples/template.tt	                        (rev 0)
+++ trunk/Catalyst-Model-TextLinkAds/examples/template.tt	2007-03-25 21:06:47 UTC (rev 6200)
@@ -0,0 +1,9 @@
+<ul>
+[%- FOREACH link = c.model('TextLinkAds').fetch( my_inventory_key ) %]
+    <li>
+        [% link.beforeText %]
+        <a href="[% link.URL %]">[% link.Text %]</a>
+        [% link.afterText %]
+    </li>
+[%- END %]
+</ul>
\ No newline at end of file

Modified: trunk/Catalyst-Model-TextLinkAds/lib/Catalyst/Helper/Model/TextLinkAds.pm
===================================================================
--- trunk/Catalyst-Model-TextLinkAds/lib/Catalyst/Helper/Model/TextLinkAds.pm	2007-03-25 20:47:56 UTC (rev 6199)
+++ trunk/Catalyst-Model-TextLinkAds/lib/Catalyst/Helper/Model/TextLinkAds.pm	2007-03-25 21:06:47 UTC (rev 6200)
@@ -109,6 +109,7 @@
 
 Dave Cardwell <dcardwell at cpan.org>
 
+
 =head1 COPYRIGHT AND LICENSE
 
 Copyright (c) 2007 Dave Cardwell. All rights reserved.

Modified: trunk/Catalyst-Model-TextLinkAds/lib/Catalyst/Model/TextLinkAds.pm
===================================================================
--- trunk/Catalyst-Model-TextLinkAds/lib/Catalyst/Model/TextLinkAds.pm	2007-03-25 20:47:56 UTC (rev 6199)
+++ trunk/Catalyst-Model-TextLinkAds/lib/Catalyst/Model/TextLinkAds.pm	2007-03-25 21:06:47 UTC (rev 6200)
@@ -10,7 +10,7 @@
 use Class::C3 ();
 use TextLinkAds ();
 
-our $VERSION = '1.01';
+our $VERSION = '0.01';
 
 
 =head1 NAME
@@ -39,7 +39,7 @@
     1;
     
     
-    # In the view...
+    # For Catalyst::View::TT...
     <ul>
     [%- FOREACH link = c.model('TextLinkAds').fetch( my_inventory_key ) %]
         <li>
@@ -173,6 +173,7 @@
 
 Dave Cardwell <dcardwell at cpan.org>
 
+
 =head1 COPYRIGHT AND LICENSE
 
 Copyright (c) 2007 Dave Cardwell. All rights reserved.