redneb

diff --git a/lib/Starman/InputStream.pm b/lib/Starman/InputStream.pm
new file mode 100644
index 0000000..e0cfc38
--- /dev/null
+++ b/lib/Starman/InputStream.pm
@@ -0,0 +1,121 @@
+use strict;
+use warnings;
+
+# -----------------------------------

dankogai

=head1 NAME

Plack::Loader - (auto)load PSGI/Plack Servers

=head1 SYNOPSIS

  #!/usr/bin/env perl
  # printenv-like app in PSGI, F?CGI, AnyEvent, Coro, POE or Danga::Socket
  use strict;
  use warnings;

mala

use Data::Dumper;
my @r;

my $text = q{@hoge http://example.com/#@hoge/ aaa #hash aaa @hogehoge aaa http://example.com/};
my $re = qr{(http://[A-Za-z0-9_\-\~\.\%\?\#\@/]+(?{push @r, ["HTTP", @-,@+] })|(?:^|\s)\@[A-Za-z0-9_]+(?{push @r,["AT", @-,@+]})|(?:^|\s)#[A-Za-z0-9_]+(?{push @r,["HashTag",@-,@+]}))};

warn $text;
() = $text =~/$re/g;
warn Dumper @r;

sekimura

#!/usr/bin/env perl
use strict;
use warnings;

my $input = shift or die "Usage: $0 Masayoshi";

my %phoetic_alphabet;
while(<DATA>) {
    chomp;
    my ($letter, $word) = split(/\s+/, $_, 2);

inao

#!/usr/bin/env perl

use strict;
use warnings;
use Pod::Usage;

use Text::Markdown 'markdown';
use HTML::TreeBuilder;
use List::Util 'max';

sekimura

<div id="post-assets"></div>
<div class="module-header" id="loading-more-assets"><img src="http://static.typepad.com/.shared:v20110208.01-0-gebb190b:typepad:en_us/images/spinner.gif"/></div>

<style>
.entry-content {
   border-bottom: solid 1px #CCC;
   padding-bottom: 10px;
   margin-bottom: 10px;
   padding-top: 10px;
}

audreyt

#!/usr/bin/env perl
use strict;
use warnings;

use File::Basename;
use Plack::Builder;
use Plack::App::CGIBin;

my $basedir = dirname(__FILE__);

hdp

my $root = '.';
my @indexes = qw(index.html);
use strict;
use warnings;
use Plack::App::File;
use Plack::App::Cascade;

sub directory_indexes {
    my ($root, @indexes) = @_;
    my $file = Plack::App::File->new(root => $root)->to_app;

hdp

diff --git a/lib/Starman/Server.pm b/lib/Starman/Server.pm
index c98af6f..a927e0d 100644
--- a/lib/Starman/Server.pm
+++ b/lib/Starman/Server.pm
@@ -21,6 +21,29 @@ my $null_io = do { open my $io, "<", \""; $io };
 
 use Net::Server::SIG qw(register_sig);
 
+sub SSL_key_file {
+    my ($self, $host, $port, $proto) = @_;

gfx

->> perlbrew exec perl -e 'package Foo; s//"warn __PACKAGE__"/ee'
perl-5.10.1
==========
Foo at (eval 1) line 1.


perl-5.12.1
==========
Foo at (eval 1) line 1.