Changeset 16061 for lang/actionscript/todoshare/perl/Html.pm

Timestamp:

07/21/08 21:42:48 (6 months ago)

Author:

hoge1e3

Message:

 

Files:

• lang/actionscript/todoshare/perl/Html.pm (modified) (5 diffs)

lang/actionscript/todoshare/perl/Html.pm

@@ -1 +1 @@
 package stream;
+use strict;
 
 sub new {
@@ -23 +24 @@
        }
        return;
+    }
+    #print (ref $tag);
+    if ((ref $tag) eq "CODE") {
+       my @args=@$c;
+       $args[0]=$t;
+       return &{$tag}(@args);
     }
     $t->out("<$tag "); 
@@ -80 +87 @@
 
 package Html;
+use strict;
 
 our @EXPORT = qw(header p brln);
@@ -85 +93 @@
 
 sub header {
-  print "Content-type: text/html; charset=utf-8\n\n";
+  my %args=(type=>"text/html" ,@_);
+  print "Content-type: $args{type}; charset=utf-8\n\n";
 }
 sub brln {
@@ -91 +100 @@
 }
 
-sub p {
-  my $c=shift;
+sub stdoutStream {
   new stream(sub {
       my $s=shift; 
       print $s;
-  })->p($c);
+  });
+}
+sub p {
+  my $c=shift;
+  &stdoutStream->p($c);
 }
 1;