replace usage of Class::Tiny::Chained

[catagits/DOM-Tiny.git] / lib / DOM / Tiny / CSS.pm

diff --git a/lib/DOM/Tiny/CSS.pm b/lib/DOM/Tiny/CSS.pm
index dbe552a..3970dfd 100644 (file)
--- a/lib/DOM/Tiny/CSS.pm
+++ b/lib/DOM/Tiny/CSS.pm
@@ -2,7 +2,6 @@ package DOM::Tiny::CSS;
 
 use strict;
 use warnings;
-use Class::Tiny::Chained 'tree';
 
 our $VERSION = '0.001';
 
@@ -18,6 +17,18 @@ my $ATTR_RE   = qr/
   \]
 /x;
 
+sub new {
+  my $class = shift;
+  bless @_ ? @_ > 1 ? {@_} : {%{$_[0]}} : {}, ref $class || $class;
+}
+
+sub tree {
+  my $self = shift;
+  return $self->{tree} unless @_;
+  $self->{tree} = shift;
+  return $self;
+}
+
 sub matches {
   my $tree = shift->tree;
   return $tree->[0] ne 'tag' ? undef : _match(_compile(shift), $tree, $tree);
@@ -546,6 +557,14 @@ carefully since it is very dynamic.
 
 L<DOM::Tiny::CSS> implements the following methods.
 
+=head2 new
+
+  my $css = DOM::Tiny::CSS->new;
+  my $css = DOM::Tiny::CSS->new(tree => $tree);
+  my $css = DOM::Tiny::CSS->new({tree => $tree});
+
+Construct a new hash-based L<DOM::Tiny::CSS> object.
+
 =head2 matches
 
   my $bool = $css->matches('head > title');