meta.plx

#!perl

use strict;
use warnings;
use autobox;

sub UNIVERSAL::mo {
    return Meta::Instance->new($_[0]);
}

{
    package Meta::Instance;

    sub new {
        my $class = shift;
        # Be careful to take a reference to an alias, not a copy
        return bless \$_[0], $class;
    }

    sub echo {
        my $self = shift;
        return $$self;
    }
}


print "UNIVERSAL"->mo->echo;