Real Life Example
file: code/validad/winxle
1: #!/usr/bin/env perl
2: use 5.014;
3: use strict;
4: use warnings;
5: use Winxle::BreadBoard;
6:
7: ( my $script_name = $0 ) =~ s{^.+/([^/]+)}{$1};
8: $script_name =~ s/\..{2,3}$//;
9:
10: if ($script_name eq 'winxle') {
11: warn "I should not be called directly, just link to me";
12: exit
13: }
14:
15: my $env = shift @ARGV || $ENV{BB} || 'Dev';
16:
17: my $bb = Winxle::BreadBoard->setup( $env );
18: my $service = $bb->resolve( service => "App/$script_name");
19:
20: $service->run;