view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

    use utf8;
    use feature qw/say/;
    use Data::Dumper;
    use Acme::Pointer;

    my $a = {
        a => 20,
        b => [1,2]
    };
    my $b = "$a";
    say $b;
    print Dumper deref($b);
    say "-" x 10;

    if ($b =~ /[A-Z]+\((.*)\)/) {
        print Dumper pointer($1);
    }

# DESCRIPTION

Acme::Pointer by passing the address as the string to the function, you can access that address.

**THIS MODULE IS UNSAFE. DO NOT USE THIS IN PRODUCT.**

lib/Acme/Pointer.pm  view on Meta::CPAN

    use utf8;
    use feature qw/say/;
    use Data::Dumper;
    use Acme::Pointer;

    my $a = {
        a => 20,
        b => [1,2]
    };
    my $b = "$a";
    say $b;
    print Dumper deref($b);
    say "-" x 10;

    if ($b =~ /[A-Z]+\((.*)\)/) {
        print Dumper pointer($1);
    }

=head1 DESCRIPTION

Acme::Pointer by passing the address as the string to the function, you can access that address.

B<THIS MODULE IS UNSAFE. DO NOT USE THIS IN PRODUCT.>