view release on metacpan or  search on metacpan

lib/Sub/AliasedUnderscore.pm  view on Meta::CPAN

=head2 transformed BLOCK

Like C<transform>, but accepts a code block instead of a coderef:

  my $sub = transformed { do something to $_ }
  $sub->($a); # $a is $_ in the above block

=cut
  
sub transformed(&) {
    my $sub = shift;
    return transform($sub);
}

=head1 BUGS

None known; report to RT.

=head1 CODE