Select Code to Download

use Pointer;
my $x   = "Hello, world";
my $sv  = pointer->of_scalar($x);
...
# or

print pointer->of_scalar("Hello, world")->get_pointer->get_pointer->ge
+t_string;

my $x   = "Hello, world";
$x      = 42;
my $sv  = pointer->of_scalar($x);
my $svpv = $sv->get_pointer;
my $pointer_to_string = $svpv->get_pointer;
print $pointer_to_string->get_string;

$ perl -MPointer -le 'print pointer->of_scalar(42)->get_pointer->get_p
+ointer->get_string;'
Segmentation fault

perl -MPointer -MPointer::int -le 'print ((pointer->of_scalar(42)->get
+_pointer("int") + 3)->get)'
42