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 ---
|
