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