|
From: Allen D. <all...@us...> - 2001-08-27 16:32:03
|
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";
+}
|