3JEHF package Bookmark::Engine::Index; use strict; use warnings; use Bookmark::Engine -Base; sub default : Public { my ($self, $r) = @_; $r->res->content_type('text/plain'); $r->res->content('Welcome to the Ridge world!'); } 1; IUUQTHJUIVCDPNIBUFOB)BUFOB5FYUCPPLCMPCNBTUFSNWDXFCBQQMJDBUJPONE
[email protected] # DBIx::MoCo#delete_if sub delete_if { my ($self, $code) = @_; croak "Argument must be a code" unless ref $code eq 'CODE'; my $last_index = $self->_last_index; for (0..$last_index) { my $item = $self->shift; local $_ = $item; $self->push($item) if $code->($_); } return $self; }
[email protected] # List::Rubyish sub delete_if { my ($self, $code) = @_; croak "Argument must be a code" unless ref $code eq 'CODE'; my $last_index = $self->_last_index; for (0..$last_index) { my $item = $self->shift; local $_ = $item; $self->push($item) unless $code->($_); } return $self; }
$POUSPMMFS ୯ͳΔΫϥεϝιου package Hatena::Epic::Admin::Index; use strict; use warnings; sub default { my ($class, $r) = @_; $r->res->content('Hello, World!'); $r->res->content_type('text/plain'); }
$POUSPMMFS 42-ൃߦ package Hatena::Epic::Admin::Index; use strict; use warnings; sub default { my ($class, $r) = @_; my $user = $r->db->single( 'SELECT * FROM user WHERE name=:name', bind => { name => 'sampleuser', }, class => 'Model::User', ); $r->render('index.html', {user => $user}); }
ͦͷ࣮ 42-खॻ͖ sub find_user_by_name { my ($class, $db, $name) = @_; my $user = $db->single( 'SELECT * FROM user WHERE name=:name', bind => { name => $name, }, class => 'Model::User', ); return $user; }
hitode909
soracom
sinsoku
zakiyama
heirhabarov
kohbis
ymty
yayoi_dd
shin_higuchi
tbshiki
spinscale
takahia1988
trycycle
tmm1
swwweet
maltzj
maggiecrowley
brad_frost
stephaniewalter
akmur
tammielis
reverentgeek
garrettdimon
paulrobertlloyd
sferik