view release on metacpan or  search on metacpan

BUILD  view on Meta::CPAN

            cd ..
            perl Makefile.PL
            make install

  How it works
    The build script creates the perl modules for the distribution under the
    nama/lib directory using *.p, *.pl, *.t and other files in the nama/src
    directory.

    build looks into the *.p files for lines that look like:

        [% somefile.pl %]

    This notation is analogous to the C-preprocessor #include directive:
    somefile.pl gets included in the source at that point. Some of these
    include lines are more complicated:

        [% qx(./strip_comments ./grammar_body) %]

    Here the preprocessor runs the script strip_comments on grammar_body,

lib/Audio/Nama.pm  view on Meta::CPAN

# depending on command line flags (-t or -g).
# This (along with the availability of Tk) 
# determines whether the GUI comes up. The Text UI
# is *always* available in the terminal that launched
# Nama.

# How is $ui->init_gui interpreted? If $ui belongs to class
# Audio::Nama::Text, Nama finds a no-op init_gui() stub in package Audio::Nama::Text
# and does nothing.

# If $ui belongs to class Audio::Nama::Graphical, Nama looks for
# init_gui() in package Audio::Nama::Graphical, finds nothing, so goes to
# look in the base class.  All graphical methods (found in
# Graphical_subs.pl) are defined in the root namespace so they can
# call Nama core methods without a package prefix.

######## Nama classes ########

use Audio::Nama::Track;
use Audio::Nama::Bus;    
use Audio::Nama::Sequence;

lib/Audio/Nama/Regions.pm  view on Meta::CPAN

	my $i;
	map{ my ($j) = /_(\d+)$/; $i = $j if $j > $i; }
		grep{/$name/} keys %Audio::Nama::Track::by_name;
	$name . ++$i
}
sub remove_region {
	if (! $this_track->region_start){
		throw($this_track->name, ": no region is defined. Skipping.");
		return;
	} elsif ($this_track->target ){
		pager($this_track->name, ": looks like a region...  removing.");
		$this_track->remove;
	} else { undefine_region() }
}
	
sub undefine_region {
	$this_track->set(region_start => undef );
	$this_track->set(region_end => undef );
	pager($this_track->name, ": Region definition removed.  Full track will play.\n");
}
1;