File Coverage

blib/lib/Audio/Nama/Globals.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Audio::Nama::Globals;
2 4     4   21252 use Modern::Perl;
  4         13175  
  4         24  
3              
4             # set aliases for common indices
5             *bn = \%Audio::Nama::Bus::by_name;
6             *tn = \%Audio::Nama::Track::by_name;
7             *ti = \%Audio::Nama::Track::by_index;
8             *mn = \%Audio::Nama::Mark::by_name;
9             *en = \%Audio::Nama::Engine::by_name;
10             *fi = \%Audio::Nama::Effect::by_id;
11              
12             # and the graph
13              
14             *g = \$Audio::Nama::ChainSetup::g;
15              
16 4     4   904 use Exporter;
  4         7  
  4         241  
17             use constant {
18 4         1454 REC => 'REC',
19             PLAY => 'PLAY',
20             MON => 'MON',
21             OFF => 'OFF',
22 4     4   26 };
  4         8  
23             our @ISA = 'Exporter';
24             our @EXPORT_OK = qw(
25              
26             $this_track
27             $this_bus
28             $this_bus_o
29             $this_mark
30             $this_edit
31             $this_sequence
32             $this_engine
33             $this_user
34             $prompt
35             %tn
36             %ti
37             %bn
38             %mn
39             %en
40             %fi
41             $g
42             $debug
43             $debug2
44             $quiet
45             REC
46             MON
47             PLAY
48             OFF
49             $ui
50             $mode
51             $file
52             $graph
53             $setup
54             $config
55             $jack
56             $fx
57             $fx_cache
58             $text
59             $gui
60             $midi
61             $help
62             $mastering
63             $project
64             @tracks_data
65             @bus_data
66             @groups_data
67             @marks_data
68             @fade_data
69             @edit_data
70             @inserts_data
71             @effects_data
72             @global_effect_chain_vars
73             @global_effect_chain_data
74             @project_effect_chain_data
75             $this_track_name
76             %track_comments
77             %track_version_comments
78             @tracked_vars
79             @persistent_vars
80              
81             );
82              
83             our %EXPORT_TAGS =
84             (
85             trackrw => [qw(REC PLAY MON OFF)],
86             singletons => [qw(
87              
88             $ui
89             $mode
90             $file
91             $graph
92             $setup
93             $config
94             $jack
95             $fx
96             $fx_cache
97             $text
98             $gui
99             $midi
100             $help
101             $mastering
102             $project
103              
104              
105             )],
106              
107             var_lists => [qw(
108              
109             @tracked_vars
110             @persistent_vars
111             @global_effect_chain_vars
112             )],
113              
114             pronouns => [qw(
115              
116             $this_track
117             $this_bus
118             $this_bus_o
119             $this_mark
120             $this_edit
121             $this_sequence
122             $this_engine
123             $this_user
124             $prompt
125             %tn
126             %ti
127             %bn
128             %mn
129             %en
130             %fi
131             $g
132             $debug
133             $debug2
134             $quiet
135             REC
136             MON
137             PLAY
138             OFF
139              
140              
141             )],
142              
143             serialize => [qw(
144              
145             @tracks_data
146             @bus_data
147             @groups_data
148             @marks_data
149             @fade_data
150             @edit_data
151             @inserts_data
152             @effects_data
153             @global_effect_chain_vars
154             @global_effect_chain_data
155             @project_effect_chain_data
156             $this_track_name
157             %track_comments
158             %track_version_comments
159             @tracked_vars
160             @persistent_vars
161              
162              
163             )],
164             );
165             our $ui = 'bullwinkle'; # for testing
166             {
167             my %seen;
168             push @{$EXPORT_TAGS{all}}, grep {!$seen{$_}++} @{$EXPORT_TAGS{$_}} foreach
169             keys %EXPORT_TAGS;
170             }
171              
172              
173             1;
174             __END__