view release on metacpan or  search on metacpan

bin/frozen-bubble-editor  view on Meta::CPAN

use SDLx::App;
use Games::FrozenBubble::Config;
use Games::FrozenBubble::Stuff;
use Games::FrozenBubble::LevelEditor;

$FPATH = $Games::FrozenBubble::Config::FPATH;
$FLPATH = $Games::FrozenBubble::Config::FLPATH;

# command line options modified from frozen-bubble code
local $_ = "@ARGV";

/-h/ and die 'Usage:  [OPTION]...
-h, --help                      display this help screen
-cb, --colourblind              use bubbles for colourblind people
-ls<filename>,
        --levelset<filename>    directly start with the specified levelset name
-l<#n>, --level<#n>             directly start the n-th level
-fs, --fullscreen               start in fullscreen mode
';

inc/My/Builder.pm  view on Meta::CPAN

use Games::FrozenBubble;

sub ACTION_run {
    my ($self) = @_;
    $self->depends_on('code');
    $self->depends_on('installdeps');
    my $bd = $self->{properties}->{base_dir};

    # prepare INC
    local @INC = @INC;
    local @ARGV = @{$self->args->{ARGV}};
    my $script = shift @ARGV;
    unshift @INC, (File::Spec->catdir($bd, $self->blib, 'lib'), File::Spec->catdir($bd, $self->blib, 'arch'));

    if ($script) {
      # scenario: ./Build run bin/scriptname param1 param2
      do($script);
    }
    else {
      # scenario: ./Build run
      my ($first_script) = ( glob('bin/*'), glob('script/*')); # take the first script in bin or script subdir