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";
+ }
}
|
