パルカワ2

最近はFlutterをやっています

2013-01-05から1日間の記事一覧

bless!!!!!!!!!!メソッドを生やす!!!!!!!!!!!!!!使う!!!!!!!!!!!!!!!!!!!!!!

use strict; use warnings; use utf8; use Encode; use Data::Util qw(install_subroutine); my $gomi = bless {}, "私のようなゴミ虫が書くブログを見て頂き本当にありがとうございます。"; install_subroutine(ref $gomi, kill => sub { die encode_utf8 "…

Mouse::Meta::Classのadd_method()

package hoge; use Mouse; no Mouse; __PACKAGE__->meta->make_immutable; package main; my $h1 = hoge->new; my $h2 = hoge->new; $h1->meta->add_method(test => sub { 'test' }); use DDP; p $h1->meta; p $h2->meta; print $h1->test; print $h2->test;…