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です。
まぁ使いどころは中々ないと思いますけれど、、、