|  line  | 
 true  | 
 false  | 
 branch  | 
 
| 
42
 | 
 0  | 
 33  | 
 unless $input  | 
 
| 
56
 | 
 0  | 
 31  | 
 wantarray ? :  | 
 
| 
75
 | 
 21  | 
 0  | 
 unless eval "\n            require Alien::gputils;\n            \$alien = Alien::gputils->new();\n        "  | 
 
| 
79
 | 
 0  | 
 21  | 
 if ($alien)  | 
 
| 
80
 | 
 0  | 
 0  | 
 if $Verbose  | 
 
| 
81
 | 
 0  | 
 0  | 
 if $alien->can('gpasm')  | 
 
| 
82
 | 
 0  | 
 0  | 
 if $alien->can('gplink')  | 
 
| 
83
 | 
 0  | 
 0  | 
 if $alien->can('bin_dir')  | 
 
| 
85
 | 
 21  | 
 0  | 
 unless (defined $gpasm and defined $gplink)  | 
 
| 
86
 | 
 18  | 
 3  | 
 if $Verbose  | 
 
| 
90
 | 
 21  | 
 0  | 
 unless (defined $bindir)  | 
 
| 
91
 | 
 0  | 
 21  | 
 if ($gpasm)  | 
 
| 
93
 | 
 0  | 
 0  | 
 if @dirs  | 
 
| 
94
 | 
 0  | 
 0  | 
 if @dirs  | 
 
| 
98
 | 
 18  | 
 3  | 
 if ($Verbose)  | 
 
| 
99
 | 
 18  | 
 0  | 
 if $stdo  | 
 
| 
100
 | 
 18  | 
 0  | 
 if $stde  | 
 
| 
101
 | 
 0  | 
 18  | 
 if $gpasm  | 
 
| 
102
 | 
 0  | 
 18  | 
 if $gplink  | 
 
| 
103
 | 
 0  | 
 18  | 
 if $bindir  | 
 
| 
108
 | 
 21  | 
 0  | 
 wantarray ? :  | 
 
| 
114
 | 
 0  | 
 0  | 
 unless $simtype eq 'gpsim'  | 
 
| 
115
 | 
 0  | 
 0  | 
 if ($^O =~ /mswin32/i) { }  | 
 
| 
118
 | 
 0  | 
 0  | 
 unless exists $ENV{$_}  | 
 
| 
119
 | 
 0  | 
 0  | 
 $ENV{$_} =~ /\s+/ ? :  | 
 
| 
120
 | 
 0  | 
 0  | 
 if $dir  | 
 
| 
123
 | 
 0  | 
 0  | 
 unless $simexe  | 
 
| 
127
 | 
 0  | 
 0  | 
 if $Verbose and $simexe  | 
 
| 
128
 | 
 0  | 
 0  | 
 unless $simexe  | 
 
| 
133
 | 
 0  | 
 0  | 
 if defined $GPASM and defined $GPLINK and defined $GPUTILSDIR  | 
 
| 
139
 | 
 0  | 
 1  | 
 if defined $GPASM  | 
 
| 
145
 | 
 0  | 
 1  | 
 if defined $GPLINK  | 
 
| 
151
 | 
 0  | 
 0  | 
 if defined $GPUTILSDIR  | 
 
| 
158
 | 
 0  | 
 0  | 
 unless defined $chip  | 
 
| 
159
 | 
 0  | 
 0  | 
 unless defined $output  | 
 
| 
164
 | 
 0  | 
 0  | 
 if ($output =~ /\.asm$/) { }  | 
 
| 
176
 | 
 0  | 
 0  | 
 unless (defined $gpasm and defined $gplink and -e $gpasm and -e $gplink)  | 
 
| 
180
 | 
 0  | 
 0  | 
 if (defined $bindir)  | 
 
| 
182
 | 
 0  | 
 0  | 
 if @dirs  | 
 
| 
183
 | 
 0  | 
 0  | 
 if (defined $l and $l ne 'bin')  | 
 
| 
193
 | 
 0  | 
 0  | 
 if -d $_  | 
 
| 
196
 | 
 0  | 
 0  | 
 if -d $_  | 
 
| 
205
 | 
 0  | 
 0  | 
 if $Verbose  | 
 
| 
206
 | 
 0  | 
 0  | 
 unless system($gpasm_cmd) == 0  | 
 
| 
207
 | 
 0  | 
 0  | 
 if $Verbose  | 
 
| 
208
 | 
 0  | 
 0  | 
 unless system($gplink_cmd) == 0  | 
 
| 
210
 | 
 0  | 
 0  | 
 unless open $fh, ">$stcfile"  | 
 
| 
219
 | 
 0  | 
 0  | 
 if (ref $hh eq 'HASH') { }  | 
 
| 
 | 
 0  | 
 0  | 
 elsif (ref $hh eq 'ARRAY') { }  | 
 
| 
226
 | 
 0  | 
 0  | 
 unless defined $stc and -e $stc  | 
 
| 
228
 | 
 0  | 
 0  | 
 unless $simexe  | 
 
| 
230
 | 
 0  | 
 0  | 
 if $Verbose  | 
 
| 
231
 | 
 0  | 
 0  | 
 unless system($sim_cmd) == 0  |