Permalink
Browse files

Avoid composition warnings

  • Loading branch information...
1 parent a6782fe commit 291edd8f6ac28e2e785f7a1bc1898f7e32053831 @sartak sartak committed with nothingmuch Apr 23, 2009
@@ -5,7 +5,7 @@ use Moose;
use namespace::clean -except => 'meta';
-with qw(Data::Stream::Bulk);
+with qw(Data::Stream::Bulk) => { excludes => [qw/loaded filter list_cat/] };
has array => (
isa => "ArrayRef",
@@ -5,7 +5,7 @@ use Moose;
use namespace::clean -except => 'meta';
-with qw(Data::Stream::Bulk::DoneFlag);
+with qw(Data::Stream::Bulk::DoneFlag) => { excludes => 'is_done' };
has callback => (
isa => "CodeRef|Str",
@@ -5,7 +5,7 @@ use Moose;
use namespace::clean -except => 'meta';
-with qw(Data::Stream::Bulk);
+with qw(Data::Stream::Bulk) => { excludes => 'list_cat' };
has streams => (
isa => "ArrayRef[Data::Stream::Bulk]",
@@ -5,7 +5,7 @@ use Moose;
use namespace::clean -except => 'meta';
-with qw(Data::Stream::Bulk::DoneFlag);
+with qw(Data::Stream::Bulk::DoneFlag) => { excludes => [qw/is_done all/] };
has sth => (
isa => "Object",
@@ -5,7 +5,7 @@ use Moose;
use namespace::clean -except => 'meta';
-with qw(Data::Stream::Bulk::DoneFlag);
+with qw(Data::Stream::Bulk::DoneFlag) => { excludes => 'is_done' };
has resultset => (
isa => "Object",
@@ -20,7 +20,7 @@ has stream => (
handles => [qw(is_done loaded)],
);
-with qw(Data::Stream::Bulk);
+with qw(Data::Stream::Bulk) => { excludes => 'loaded' };
sub next {
my $self = shift;
@@ -5,7 +5,7 @@ use Moose;
use namespace::clean -except => 'meta';
-with qw(Data::Stream::Bulk);
+with qw(Data::Stream::Bulk) => { excludes => [qw/loaded filter list_cat all items/] };
sub items { return () }

0 comments on commit 291edd8

Please sign in to comment.