Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 24 lines (18 sloc) 0.561 kB
#!/usr/bin/perl
# A simple tool for translating MooseX::Method::Signatures syntax sugar
# into native subs and parameters parsing
# Motivation: http://www.mail-archive.com/moose@perl.org/msg01220.html
#
# Authors and contributors: Oleg Komarov, Vladimir Kim
# Last update: 2010-02-13
use strict;
use warnings;
use Undeclare qw( undeclare undeclareFile );
if( my $InputFileName = $ARGV[ 0 ] ) {
my $OutputFileName = $ARGV[ 1 ] || $InputFileName;
undeclareFile( $InputFileName, $OutputFileName );
}
else {
print undeclare( join( '', <> ) );
}
exit;
Jump to Line
Something went wrong with that request. Please try again.