Changeset 12557 for lang/perl/App-Chariot

Timestamp:

05/27/08 21:45:18 (6 months ago)

Author:

tokuhirom

Message:

added role.

Location:

lang/perl/App-Chariot/trunk/lib/App

Files:

• Chariot.pm (modified) (1 diff)
• Chariot/C/Index.pm (modified) (1 diff)
• Chariot/C/Permalink.pm (modified) (1 diff)
• Chariot/C/RSS.pm (modified) (2 diffs)
• Chariot/Role (added)
• Chariot/Role/C.pm (added)

lang/perl/App-Chariot/trunk/lib/App/Chariot.pm

@@ -118 +118 @@
     mkdir $self->config->output_dir;
     for my $controller (@CONTROLLERS) {
-        $controller->meta->get_method('create')->body->( $self );
+        $controller->new->create($self);
     }
 }

lang/perl/App-Chariot/trunk/lib/App/Chariot/C/Index.pm

@@ -1 +1 @@
 package App::Chariot::C::Index;
 use Moose;
+with 'App::Chariot::Role::C';
 
 sub create {
-    my $self = shift;
+    my ($self, $c) = @_;
 
-    print "create index page\n";
-    my @list = reverse @{$self->dat->list};
-    my $ifile = File::Spec->catfile($self->config->assets_dir, 'tmpl', 'index.tt');
-    my $ofile = File::Spec->catfile($self->config->output_dir, 'index.html');
+    my @list = reverse @{$c->dat->list};
+    my $ifile = File::Spec->catfile($c->config->assets_dir, 'tmpl', 'index.tt');
+    my $ofile = File::Spec->catfile($c->config->output_dir, 'index.html');
 
-    $self->render(
+    $c->render(
         $ifile => $ofile, {
-            entries => [ @list[0..($self->config->index_stop)] ],
+            entries => [ @list[0..($c->config->index_stop)] ],
         }
     );

lang/perl/App-Chariot/trunk/lib/App/Chariot/C/Permalink.pm

@@ -1 +1 @@
 package App::Chariot::C::Permalink;
 use Moose;
+with 'App::Chariot::Role::C';
 
 sub create {
-    my ($self, ) = @_;
+    my ($self, $c) = @_;
 
-    print "create permalink pages\n";
-    my $ifile = File::Spec->catfile($self->config->assets_dir, 'tmpl', 'item.tt');
-    for my $entry (@{$self->dat->list}) {
+    my $ifile = File::Spec->catfile($c->config->assets_dir, 'tmpl', 'item.tt');
+    for my $entry (@{$c->dat->list}) {
         my $cnt = 1;
         for my $item (reverse @{$entry->items->list}) {
             $item->count($cnt);
             $item->entry( $entry );
-            my $ofile = File::Spec->catfile($self->config->output_dir, $item->permalink);
-            $self->render(
+            my $ofile = File::Spec->catfile($c->config->output_dir, $item->permalink);
+            $c->render(
                 $ifile => $ofile,
                 {

lang/perl/App-Chariot/trunk/lib/App/Chariot/C/RSS.pm

@@ -1 +1 @@
 package App::Chariot::C::RSS;
 use Moose;
+with 'App::Chariot::Role::C';
 
 sub create {
-    my $self = shift;
+    my ($self, $c) = @_;
 
-    print "create rss\n";
-
-    my $ofname = File::Spec->catfile( $self->config->output_dir, $self->config->rss_filename );
+    my $ofname = File::Spec->catfile( $c->config->output_dir, $c->config->rss_filename );
 
     my $rss = XML::RSS->new(version => '1.0');
     $rss->channel(
-        title        => $self->config->title,
-        link         => $self->config->clog_url,
-        description  => $self->config->changelog_description,
+        title        => $c->config->title,
+        link         => $c->config->clog_url,
+        description  => $c->config->changelog_description,
     );
 
-    my @list = reverse @{$self->dat->list};
-    for my $entry (@list[0..($self->config->index_stop)]) {
+    my @list = reverse @{$c->dat->list};
+    for my $entry (@list[0..($c->config->index_stop)]) {
         my $cnt = 1;
         for my $item (reverse @{$entry->items->list}) {
@@ -25 +24 @@
             $rss->add_item(
                 title       => $item->title,
-                link        => $self->config->clog_url . $item->permalink,
+                link        => $c->config->clog_url . $item->permalink,
                 description => $item->content,
                 content => {
-                    encoded => $self->formatter->( $item->content ),
+                    encoded => $c->formatter->( $item->content ),
                 },
             );