#!/usr/bin/perl
use strict;
use Perl6::Say;
undef &Perl6::Say::say;
sub my_say {
my $this = shift;
print @_;
$this;
}
*Perl6::Say::say = \&my_say;
STDERR->say('ﾌｫｫｰｰ!!')->say('ｾｲ')->say('ｾｲ')->say('ｾｲ');
package IO::HG4;するのがいいと思った。
use base qw(IO::Handle);
sub say {
my $this = shift;
print @_;
$this;
}
IO::HG4->new->say('ﾌｫｫｰｰ!!')->say('ｾｲ')->say('ｾｲ')->say('ｾｲ');
|
|
|
|
|
writeback message: Ready to post a comment.
API, blosxom, C, c, c++, chrome, firefox, freenode, github, go, golang, google, google app engine, google reader, greasemonkey, growl, gtk, gtktwitter, irc, javascript, jquery, json, linux, lua, memcached, microformats, minibuffer, mixi, opera, perl, plagger, python, ruby, tinytinyhttpd, tips, tumblr, twitter, vim, vimperator, wassr, webscraper, windows, WSSE, はてな, はてなスター, はてなブックマーク, もごもご
![[Valid RSS]](http://mattn.kaoriya.net/images/valid-rss.png "Validate my RSS feed")
