Hi Guys,
I am learning the object::insideout model now and can't find mush materials on
website. Do anyone know how to declare a hash data as attribute in object field
and how to use it.
I have example show below, but it seems not work properly. why the "first_para"
didn't show it's default value?
thanks
Christina
-----------------------source code -----------------
package BaseClass::configure; {
use Object::InsideOut;
my %parameters : Field = (
'first_para' => {
'Regex' => qr /^first$/i,
'Type' => 'number',
'default' => "ok",
},
);
sub set_parameter {
my $self = shift;
my %hash = ( 'first_1' => 1; 'second' => 2);
$self->set(\%parameters, \%hash);
print "seting done\n";
}
sub get_first{
my $self = shift;
my $hash = $parameters{$$self};
foreach my $k (keys %$hash) {print "$k -> $hash->{$k}\t"}
print "\n getting done\n";
}
}
package main;
my $obj = BaseClass::configure;
$obj->set_parameter;
$obj->get_first;
-------------results:------------
seting done
first_1 -> 1 second -> 2
getting done
_________________________________________________________________
Looking for a fresh way to share your photos? Check out the new Windows Live
Messenger
http://windowslive.ninemsn.com.au/article.aspx?id=792335
