Acme::PlayCode::Plugin::ExchangeCondition.3pm

Langue: en

Version: 2010-05-25 (fedora - 01/12/10)

Section: 3 (Bibliothèques de fonctions)

Sommaire

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 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.