overloading args objects

Author: tobyink

lib/Type/Params.pm

@@ -653,6 +653,8 @@ These methods start and end with double underscores to reduce the chance
 that they'll conflict with the name of a named parameter, however they are
 considered part of the public, supported API.
 
+The object overloads C<< @{} >> to call C<< __TO_ARRAYREF__ >>.
+
 =head4 C<< named_to_list >> B<< ArrayRef|Bool >>
 
 The C<named_to_list> option is ignored for signatures using positional

lib/Type/Params/Signature.pm

@@ -1220,6 +1220,13 @@ sub make_extra_methods {
 	my $code = $coderef->code;
 	local $@;
 	eval( $code ) or die( $@ );
+	
+	Type::Tiny::_install_overloads(
+		$self->bless,
+		'bool'          => sub { 1 },
+		'@{}'           => '__TO_ARRAYREF__',
+		'fallback'      => !!1,
+	);
 }
 
 sub return_wanted {

meta/changes.pret

@@ -1553,4 +1553,8 @@
 			a dcs:Addition;
 			label "Type::Params now provides hooks for the event of wrapping a sub in a signature.";
 		];
+		item [
+			a dcs:Addition;
+			label "Type::Params args objects now provide __TO_LIST__, __TO_ARRAYREF__, and __TO_HASHREF__ methods.";
+		];
 	].

t/20-modules/Type-Params/v2-named-methods.t

@@ -30,7 +30,7 @@ use Types::Common -all;
 
 our @ARGS;
 
-signature_for [ qw/ get_list get_arrayref get_hashref / ] => (
+signature_for [ qw/ get_list get_arrayref get_hashref be_arraylike / ] => (
 	named => [
 		foo => Int, { alias => 'fool' },
 		bar => Optional[Int],
@@ -151,4 +151,21 @@ subtest '__TO_HASHREF__' => sub {
 	);
 };
 
+sub be_arraylike {
+	my $args = shift;
+	[ @{$args} ];
+}
+
+subtest '@{}' => sub {
+	is_deeply(
+		be_arraylike( foo => 66, bar => 99 ),
+		[ 66, 99 ],
+	);
+
+	is_deeply(
+		be_arraylike( fool => 66 ),
+		[ 66, undef ],
+	);
+};
+
 done_testing;