view release on metacpan or  search on metacpan

lib/App/Music/PlayTab.pm  view on Meta::CPAN

my $barno;			# barnumber (slightly magical)
my $s_margin = $margin;		# save values
my $s_indent = 0;		# save values

use App::Music::PlayTab::Output;

use Encode;
use Clone qw(clone);

sub run {
    local (@ARGV) = @_ ? @_ : @ARGV;

    app_options();
    binmode( STDERR, ':utf8' );
    print STDOUT ("ok 1\n") if $test;

    if ( defined $output ) {
	open(OUTPUT, ">$output") or print STDOUT ("not ") if $test;
	print STDOUT ("ok 2\n") if $test;
    }
    else {