codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
#!/usr/bin/perl use strict; use warnings; use Data::Dumper; package myparent; { sub new { my $class = shift; my $self = { }; bless $self, $class; $self->{listref} = eval '$' . $class . '::listref'; return $self; } } package mychild; { use base 'myparent'; our $listref = [ 1, 2, 3 ]; } package main; { my $obj = mychild->new; print Dumper $obj; }
Private
[
?
]
Run code
Submit