Changeset 23308

Timestamp:

11/12/08 13:23:09 (5 years ago)

Author:

kazuho

Message:

initial mojo impl. (API will change very soon)

Files:

• lang/perl/NanoA/trunk/lib/NanoA.pm (modified) (4 diffs)

lang/perl/NanoA/trunk/lib/NanoA.pm

@@ -78 +78 @@
     my $handler_path = $opts->{prefix} . ($q->path_info || '/');
     $handler_path =~ s{\.\.}{}g;
+    $handler_path = camelize($handler_path)
+        if $opts->{camelize};
     
     my $handler_klass = $klass->load_handler($opts, $handler_path)
@@ -105 +107 @@
     foreach my $loader (
         ($opts->{loaders} ? @{$opts->{loaders}} : ()),
+        \&load_mojo_template,
         \&load_pm,
     ) {
@@ -117 +120 @@
     my ($klass, $opts, $path) = @_;
     $path =~ s{/+$}{};
-    $path = camelize($path)
-        if $opts->{camelize};
     local $@;
     eval {
@@ -134 +135 @@
 }
 
+sub load_mojo_template {
+    my ($klass, $opts, $path) = @_;
+    $path =~ s{/+$}{};
+    return
+        unless -e "$path.mt";
+    my $module = $path;
+    $module =~ s{/}{::};
+    local $@;
+    eval << "EOT";
+use Mojo::Template;
+package $module;
+use base qw(NanoA);
+sub run {
+    my \$self = shift;
+    Mojo::Template->new->render_file("$path.mt", \$self);
+}
+1;
+EOT
+;
+    die $@ if $@;
+    $module;
+}
+
 sub not_found {
     my ($klass, $opts) = @_;