Perl日記

日々の知ったことのメモなどです。Perlは最近やってないです。

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