removing largely unnecessary dep on MooseX::Method::Signatures

[dbsrgits/DBIx-Class-ResultSet-WithMetaData.git] / lib / DBIx / Class / ResultSet / WithMetaData.pm

diff --git a/lib/DBIx/Class/ResultSet/WithMetaData.pm b/lib/DBIx/Class/ResultSet/WithMetaData.pm
index d3cf119..1cf546b 100644 (file)
--- a/lib/DBIx/Class/ResultSet/WithMetaData.pm
+++ b/lib/DBIx/Class/ResultSet/WithMetaData.pm
@@ -5,7 +5,7 @@ use warnings;
 
 use Data::Alias;
 use Moose;
-use MooseX::Method::Signatures;
+use Method::Signatures::Simple;
 extends 'DBIx::Class::ResultSet';
 
 has '_row_info' => (
@@ -152,7 +152,8 @@ with that row when the ResultSet is flattened to a datastructure with L</display
 
 =cut
 
-method add_row_info (Int :$id, :$row, HashRef :$info) {
+method add_row_info (%opts) {
+  my ($row, $id, $info) = map { $opts{$_} } qw/row id info/;
   if ($row) {
     $id = $self->_mk_id(row => { $row->get_columns });
   }
@@ -167,7 +168,8 @@ method add_row_info (Int :$id, :$row, HashRef :$info) {
   $self->_row_info->{$id} = $info;  
 }
 
-method row_info_for (Int :$id) {
+method row_info_for (%opts) {
+  my $id = $opts{id};
   return $self->_row_info->{$id};
 }
 
@@ -187,7 +189,8 @@ Convenience method. Essentually a shortcut for $rs->search({}, { order_by => $co
 
 =cut
 
-method order_by (Str :$col) {
+method order_by (%opts) {
+  my $col = $opts{col};
   $col = "me.$col" unless ($col =~ m/\./);
   return $self->search({}, { order_by => $col });
 }
@@ -208,11 +211,13 @@ Convenience method. Essentually a shortcut for $rs->search({}, { rows => $count
 
 =cut
 
-method limit (Int :$count) {
+method limit (%opts) {
+  my $count = $opts{count};
   return $self->search({}, { rows => $count });
 }
 
-method _mk_id (HashRef :$row) {
+method _mk_id (%opts) {
+  my $row = $opts{row};
   return join('-', map { $row->{$_} } @{$self->id_cols});
 }