move all actual logic to Data::Perl::Role, split from consumers

lib/Data/Perl/Bool.pm

@@ -0,0 +1,31 @@
+package Data::Perl::Bool;
+
+# ABSTRACT: Wrapping class for boolean values.
+
+use strictures 1;
+
+use Role::Tiny::With;
+
+with 'Data::Perl::Role::Bool';
+
+1;
+__END__
+==pod
+
+=head1 SYNOPSIS
+
+  use Data::Perl qw/bool/;
+
+  my $bool = bool(0);
+
+  $bool->toggle; # 1
+
+  $bool->unset; # 0
+
+=head1 DESCRIPTION
+
+This class is a simple consumer of the L<Data::Perl::Role::Bool> role, which
+provides all functionality. You probably want to look there instead.
+
+
+=cut

lib/Data/Perl/Code.pm

@@ -0,0 +1,29 @@
+package Data::Perl::Code;
+
+# ABSTRACT: Wrapping class for Perl coderefs.
+
+use strictures 1;
+
+use Role::Tiny::With;
+
+with 'Data::Perl::Role::Code';
+
+1;
+
+__END__
+==pod
+
+=head1 SYNOPSIS
+
+  use Data::Perl qw/code/;
+
+  my $code = code(sub { 'Foo'} );
+
+  $code->execute(); # returns 'Foo';
+
+=head1 DESCRIPTION
+
+This class is a simple consumer of the L<Data::Perl::Role::Code> role, which
+provides all functionality. You probably want to look there instead.
+
+=cut

lib/Data/Perl/Counter.pm

@@ -0,0 +1,30 @@
+package Data::Perl::Counter;
+
+# ABSTRACT: Wrapping class for a simple numeric counter.
+
+use strictures 1;
+
+use Role::Tiny::With;
+
+with 'Data::Perl::Role::Counter';
+
+1;
+__END__
+==pod
+
+=head1 SYNOPSIS
+
+  use Data::Perl qw/counter/;
+
+  my $c = counter(4);
+
+  $c->inc;   # $c == 5
+
+  $c->reset; # $c == 0
+
+=head1 DESCRIPTION
+
+This class is a simple consumer of the L<Data::Perl::Role::Counter> role, which
+provides all functionality. You probably want to look there instead.
+
+=cut

lib/Data/Perl/Number.pm

@@ -0,0 +1,30 @@
+package Data::Perl::Number;
+
+# ABSTRACT: Wrapping class for Perl scalar numbers.
+
+use strictures 1;
+
+use Role::Tiny::With;
+
+with 'Data::Perl::Role::Number';
+
+1;
+__END__
+==pod
+
+=head1 SYNOPSIS
+
+  use Data::Perl qw/number/;
+
+  my $num = number(123);
+
+  $num->add(5); # $num == 128
+
+  $num->div(2); # $num == 64
+
+=head1 DESCRIPTION
+
+This class is a simple consumer of the L<Data::Perl::Role::Number> role, which
+provides all functionality. You probably want to look there instead.
+
+=cut

lib/Data/Perl/Role/Bool.pm

@@ -1,9 +1,11 @@
-package Data::Perl::Bool;
+package Data::Perl::Role::Bool;
 
 # ABSTRACT: Wrapping class for boolean values.
 
 use strictures 1;
 
+use Role::Tiny;
+
 sub new { my $bool = $_[1] ? 1 : 0; bless(\$bool, $_[0]) }
 
 sub set { ${$_[0]} = 1 }

lib/Data/Perl/Role/Code.pm

@@ -1,9 +1,11 @@
-package Data::Perl::Code;
+package Data::Perl::Role::Code;
 
 # ABSTRACT: Wrapping class for Perl coderefs.
 
 use strictures 1;
 
+use Role::Tiny;
+
 sub new { my $cl = shift; bless $_[0], $cl }
 
 sub execute { $_[0]->(@_[1..$#_]) }

lib/Data/Perl/Role/Collection/Array.pm

@@ -1,10 +1,10 @@
-package Data::Perl::Collection::Array;
+package Data::Perl::Role::Collection::Array;
 
 # ABSTRACT: Wrapping class for Perl's built in array structure.
 
 use strictures 1;
 
-
+use Role::Tiny;
 use List::Util;
 use List::MoreUtils;
 use Scalar::Util qw/blessed/;

lib/Data/Perl/Role/Collection/Hash.pm

@@ -1,11 +1,12 @@
-package Data::Perl::Collection::Hash;
+package Data::Perl::Role::Collection::Hash;
 
 # ABSTRACT: Wrapping class for Perl's built in hash structure.
 
 use strictures 1;
 
+use Role::Tiny;
 use Scalar::Util qw/blessed/;
-use Module::Runtime qw/use_module/;
+use Module::Runtime qw/use_package_optimistically/;
 
 sub new { my $cl = shift; bless({ @_ }, $cl) }
 
@@ -17,7 +18,7 @@ sub get {
   if (@_ > 1) {
     my @res = @{$self}{@_};
 
-    blessed($self) ? use_module($self->_array_class)->new(@res) : @res;
+    blessed($self) ? use_package_optimistically($self->_array_class)->new(@res) : @res;
   }
   else {
     $self->{$_[0]};
@@ -33,22 +34,22 @@ sub set {
 
   my @res = @{$self}{@_[@keys_idx]};
 
-  blessed($self) ? use_module($self->_array_class)->new(@res) : @res;
+  blessed($self) ? use_package_optimistically($self->_array_class)->new(@res) : @res;
 }
 
 sub delete {
   my $self = shift;
   my @res = CORE::delete @{$self}{@_};
 
-  blessed($self) ? use_module($self->_array_class)->new(@res) : @res;
+  blessed($self) ? use_package_optimistically($self->_array_class)->new(@res) : @res;
 }
 
 sub keys {
   my ($self) = @_;
 
   my @res = keys %{$self};
 
-  blessed($self) ? use_module($self->_array_class)->new(@res) : @res;
+  blessed($self) ? use_package_optimistically($self->_array_class)->new(@res) : @res;
 }
 
 sub exists { CORE::exists $_[0]->{$_[1]} }
@@ -60,15 +61,15 @@ sub values {
 
   my @res = CORE::values %{$_[0]};
 
-  blessed($self) ? use_module($self->_array_class)->new(@res) : @res;
+  blessed($self) ? use_package_optimistically($self->_array_class)->new(@res) : @res;
 }
 
 sub kv {
   my ($self) = @_;
 
   my @res = CORE::map { [ $_, $self->{$_} ] } CORE::keys %{$self};
 
-  blessed($self) ? use_module($self->_array_class)->new(@res) : @res;
+  blessed($self) ? use_package_optimistically($self->_array_class)->new(@res) : @res;
 }
 
 

lib/Data/Perl/Role/Counter.pm

@@ -1,9 +1,11 @@
-package Data::Perl::Counter;
+package Data::Perl::Role::Counter;
 
 # ABSTRACT: Wrapping class for a simple numeric counter.
 
 use strictures 1;
 
+use Role::Tiny;
+
 sub new { bless \(my $n = $_[1]), $_[0] }
 
 sub inc { ${$_[0]} += ($_[1] ? $_[1] : 1) }

lib/Data/Perl/Role/Number.pm

@@ -1,9 +1,11 @@
-package Data::Perl::Number;
+package Data::Perl::Role::Number;
 
 # ABSTRACT: Wrapping class for Perl scalar numbers.
 
 use strictures 1;
 
+use Role::Tiny;
+
 sub new { bless \(my $n = $_[1]), $_[0] }
 
 sub add { ${$_[0]} = ${$_[0]} + $_[1] }

lib/Data/Perl/Role/String.pm

@@ -1,9 +1,11 @@
-package Data::Perl::String;
+package Data::Perl::Role::String;
 
 # ABSTRACT: Wrapping class for Perl scalar strings.
 
 use strictures 1;
 
+use Role::Tiny;
+
 sub new { bless \(my $s = $_[1]), $_[0] }
 
 sub inc { ${$_[0]}++ }
@@ -59,7 +61,7 @@ __END__
 
 =head1 DESCRIPTION
 
-  This class provides a wrapper and methods for interacting with scalar strings.
+This class provides a wrapper and methods for interacting with scalar strings.
 
 =head1 PROVIDED METHODS
 

lib/Data/Perl/String.pm

@@ -0,0 +1,29 @@
+package Data::Perl::String;
+
+# ABSTRACT: Wrapping class for Perl scalar strings.
+
+use strictures 1;
+
+use Role::Tiny::With;
+
+with 'Data::Perl::Role::String';
+
+1;
+
+__END__
+==pod
+
+=head1 SYNOPSIS
+
+  use Data::Perl qw/string/;
+
+  my $string = string("foo\n");
+
+  $string->chomp; # returns 1, $string == "foo"
+
+=head1 DESCRIPTION
+
+This class is a simple consumer of the L<Data::Perl::Role::String> role, which
+provides all functionality. You probably want to look there instead.
+
+=cut