[css-cvs] CVS: Parse/t test1.pl,1.2,1.3

[Allen D. <all...@us...>]

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