From: Allen D. <all...@us...> - 2001-08-27 16:40:42
|
Update of /cvsroot/perl-css/Parse/t In directory usw-pr-cvs1:/tmp/cvs-serv7567/t Modified Files: test1.pl Log Message: Style properties now returns hash instead of hashref Index: test1.pl =================================================================== RCS file: /cvsroot/perl-css/Parse/t/test1.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- test1.pl 2001/08/27 16:32:00 1.2 +++ test1.pl 2001/08/27 16:40:39 1.3 @@ -13,4 +13,10 @@ foreach my $style ($css->styles){ print "$style\n"; + + my %properties = $style->properties; + + foreach my $prop (keys %properties){ + print "\t$prop\t".$properties{$prop}."\n"; + } } |