mainをnewする
といったことができるか試してみた。
#!/usr/bin/env perl package main; use strict; use warnings; use feature qw/ say /; use Any::Moose; has 'x' => ( is => 'rw', 'isa' => 'Int' ); has 'y' => ( is => 'rw', 'isa' => 'Int' ); no Any::Moose; # main を new しちゃう!!! my $main = main->new; $main->x(7); $main->y(15); say $main->x; say $main->y;
7 15
へーすごい! 出ました!
ちなみにPerl5.14.0です。
まぁ使いどころは中々ないと思いますけれど、、、