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

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

Update of /cvsroot/perl-css/Parse/t
In directory usw-pr-cvs1:/tmp/cvs-serv4647/t

Modified Files:
	test1.pl 
Log Message:
CSS->styles() passes an array ref now.


Index: test1.pl
===================================================================
RCS file: /cvsroot/perl-css/Parse/t/test1.pl,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- test1.pl	2001/08/27 16:18:47	1.1.1.1
+++ test1.pl	2001/08/27 16:32:00	1.2
@@ -7,4 +7,10 @@
 my $css = Parse::CSS->new(
                           -source => './wormbase.css',
                           -debug  => 1,
-                         )
+                         );
+
+#my @styles = $css->styles;
+
+foreach my $style ($css->styles){
+  print "$style\n";
+}