Permalink
Browse files

Add accessors manually to avoid a new dependency

  • Loading branch information...
1 parent 807aa4a commit b7f300115fc2cb28cb14a0fc6dca6ac1c58bec45 @semifor committed Jan 24, 2014
Showing with 8 additions and 5 deletions.
  1. +8 −5 lib/Net/Twitter/Lite/WrapResult.pm
@@ -1,5 +1,7 @@
package Net::Twitter::Lite::WrapResult;
+use strict;
+
=head1 NAME
Net::Twitter::Lite::WrapResult - Wrap the HTTP response and Twitter result
@@ -54,12 +56,18 @@ sub new {
Returns the inflated Twitter API result.
+=cut
+
+sub result { shift->{result} }
+
=item http_response
Returns the L<HTTP::Response> object for the API call.
=cut
+sub http_response { shift->{http_response} }
+
# private method
my $limit = sub {
my ( $self, $which ) = @_;
@@ -96,11 +104,6 @@ suitable header is available.
sub rate_limit_reset { shift->$limit('Reset') }
-use strict;
-use base 'Class::Accessor::Grouped';
-
-__PACKAGE__->mk_group_accessors(simple => qw/result http_response/);
-
1;
__END__

0 comments on commit b7f3001

Please sign in to comment.