perl-css-commits

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

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

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


Index: CSS.pm
===================================================================
RCS file: /cvsroot/perl-css/Parse/CSS.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- CSS.pm	2001/08/27 16:18:46	1.1.1.1
+++ CSS.pm	2001/08/27 16:31:59	1.2
@@ -72,7 +72,7 @@
 sub style {
   my $self = shift;
   my $option = shift;
-  return values %{$self->{style}} unless $option;
+  return (values %{$self->{style}}) unless $option;
 
   my @return;
   my @option = ref $option eq 'ARRAY' ? @$option : $option;
@@ -114,19 +114,9 @@
 
   foreach my $b (@$a){
     foreach my $s (@$b){
-      $s->adaptor($self->adaptor('Test'));
+      $s->adaptor($self->adaptor);
       $s->debug($self->debug);
       $self->style($s);
-    }
-  }
-
-  foreach my $s ($self->styles){
-    print $s->adaptor,"\n";
-    print $s, "\n";
-#    my %p = %{$s->properties};
-    my %p = %{$s->converts};
-    foreach my $p (keys %p){
-      print "\t$p\t=>\t$p{$p}\n";
     }
   }
 }