#!/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('ｾｲ');
するのがいいと思った。