Acme::PlayCode::Plugin::ExchangeCondition - Play code with exchanging condition
use Acme::PlayCode; my $app = new Acme::PlayCode; $app->load_plugin('ExchangeCondition'); my $played_code = $app->play( $code ); # or my $played_code = $app->play( $filename ); # or $app->play( $filename, { rewrite_file => 1 } ); # override $filename with played code
if ( $a eq "a" ) { print "1"; } elsif ( $b eq 'b') { print "2"; } elsif ( $c ne qq~c~) { print "3"; } elsif ( $c eq q~d~) { print '4'; }
becomes
if ( "a" eq $a ) { print "1"; } elsif ( 'b' eq $b ) { print "2"; } elsif ( $c ne qq~c~) { print "3"; } elsif ( q~d~ eq $c ) { print '4'; }
Acme::PlayCode, Moose, PPI, MooseX::Object::Pluggable
Fayland Lam, <fayland at gmail.com>
<fayland at gmail.com>
Copyright 2008 Fayland Lam, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Acme::PlayCode, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Acme::PlayCode
CPAN shell
perl -MCPAN -e shell install Acme::PlayCode
For more information on module installation, please visit the detailed CPAN module installation guide.