NAME

Acme::PlayCode::Plugin::ExchangeCondition - Play code with exchanging condition

SYNOPSIS

use Acme::PlayCode;

my $app = 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

DESCRIPTION

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';
}

SEE ALSO

Acme::PlayCode, Moose, PPI, MooseX::Object::Pluggable

AUTHOR

Fayland Lam, <fayland at gmail.com>

COPYRIGHT & LICENSE

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.