From: Allen D. <all...@us...> - 2002-01-18 04:30:18
|
Update of /cvsroot/perl-css/Parse/CSS In directory usw-pr-cvs1:/tmp/cvs-serv29461/CSS Modified Files: Adaptor.pm Style.pm Removed Files: CSS.xs Log Message: re-releasing this package. sorry i was _such_ an amateur before. not that i'm pro now... anyway, enjoy. Index: Adaptor.pm =================================================================== RCS file: /cvsroot/perl-css/Parse/CSS/Adaptor.pm,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -u -d -r1.1.1.1 -r1.2 --- Adaptor.pm 2001/08/27 16:18:47 1.1.1.1 +++ Adaptor.pm 2002/01/18 04:30:14 1.2 @@ -1,14 +1,14 @@ -package Parse::CSS::Adaptor; +package CSS::Adaptor; use strict; use warnings; use vars qw($VERSION); -our $VERSION = 0.1; +$VERSION = 0.05; use lib '../../'; use Carp qw(croak confess); use overload '""' => 'toString'; -use Parse::CSS::Adaptor; +use CSS::Adaptor; sub new { my $class = shift; Index: Style.pm =================================================================== RCS file: /cvsroot/perl-css/Parse/CSS/Style.pm,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- Style.pm 2001/08/27 16:40:39 1.2 +++ Style.pm 2002/01/18 04:30:14 1.3 @@ -1,14 +1,14 @@ -package Parse::CSS::Style; +package CSS::Style; use strict; use warnings; use vars qw($VERSION); -my $VERSION = 0.1; +$VERSION = 0.05; use lib '../../'; use Carp qw(croak confess); use overload '""' => 'toString'; -use Parse::CSS::Adaptor; +use CSS::Adaptor; sub new { my $class = shift; @@ -26,9 +26,9 @@ return $self->{adaptor} unless $option; $self->{adaptor} = $option and return 1 - if (ref($option) =~ /Parse::CSS::Adaptor/); + if (ref($option) =~ /CSS::Adaptor/); - my $adaptorclass = "Parse::CSS::Adaptor::$option"; + my $adaptorclass = "CSS::Adaptor::$option"; croak "Can't find adaptor $adaptorclass: $!" unless (eval "require $adaptorclass"); --- CSS.xs DELETED --- |