view release on metacpan or  search on metacpan

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

package Acme::Pointer;
use 5.008_001;
use strict;
use warnings;

our $VERSION = "0.03";

use XSLoader;
XSLoader::load(__PACKAGE__, $VERSION);

require Exporter;
our @ISA = qw/Exporter/;
our @EXPORT = qw/deref pointer/;

1;
__END__

=encoding utf-8

=head1 NAME

Acme::Pointer - We can access to data using address as the string

=head1 SYNOPSIS

    #!/usr/bin/env perl

    use strict;
    use warnings;
    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.>

=head1 METHODS

=over 2

=item C<< deref($ref :Str) >>

You can pass the following string to this function.

    CODE(0x7fd541a84a30)
    HASH(0x7fd541a84a30)
    ARRAY(0x7fd541a84a30)
    SCALAR(0x7fd541a84a30)

If a character string other than these is passed, undef will be returned.

=item C<< pointer($addr :Str) >>

You can pass the string like "0x7fd541a84a30" to this function.

=back

=head1 LICENSE

Copyright (C) K.

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=head1 AUTHOR

K E<lt>x00.x7f@gmail.comE<gt>

=cut