Overridden N:T:new broke derived classes

semifor · May 22, 2009 · e4b84c3 · e4b84c3
1 parent 065b198
commit e4b84c3
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 15 deletions.
diff --git a/lib/Net/Twitter/Identica.pm b/lib/Net/Twitter/Identica.pm
@@ -1,15 +1,6 @@
 package Net::Twitter::Identica;
-use Moose;
-extends 'Net::Twitter';
+use Net::Twitter;
 
-use namespace::autoclean;
-
-with 'Net::Twitter::API::REST';
-
-has '+apiurl'   => ( default => 'http://identi.ca/api' );
-has '+apihost'  => ( default => 'identi.ca:80' );
-has '+apirealm' => ( default => 'Laconica API' );
-
-__PACKAGE__->meta->make_immutable;
+sub new { shift; Net::Twitter->new(identica => 1, @_) }
 
 1;
diff --git a/lib/Net/Twitter/Search.pm b/lib/Net/Twitter/Search.pm
@@ -1,10 +1,8 @@
 package Net::Twitter::Search;
-use Moose;
-extends 'Net::Twitter';
+use Net::Twitter;
 
-use namespace::autoclean;
+sub new { shift; Net::Twitter->new(@_) }
 
-__PACKAGE__->meta->make_immutable;
 # Net::Twitter::Search was really just an alias for legacy Net::Twitter
 # Deprecated.
 #