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