Acme::PlayCode::Plugin::ExchangeCondition(3)

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

SYNOPSIS
    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

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.