in reply to Creating a dynamic object in Perl
P.S. : beware,as this is not a best practice(just showing that you can do things this way too)#!/usr/bin/perl sub new_pkg { our $i; $i++; eval <<__SOMECODE__ package demo$i; sub new { my \$class = shift; my \$self = {class => \$class}; bless (\$self,\$class); return \$self; } sub test { print "demo$i\\n"; } __SOMECODE__ ; }; new_pkg for 1..10; for (1..10) { my $type_of_obj = "demo$_"; my $new_obj=$type_of_obj->new; $new_obj->test; };
|
|---|