| line |
true |
false |
branch |
|
38
|
0 |
0 |
$err ? : |
|
75
|
6 |
3 |
if $partname =~ /^(?:atmega|m)(.*)$/i |
|
76
|
3 |
6 |
if $partname =~ /^(?:attiny|t)(.*)$/i |
|
79
|
0 |
9 |
unless (-f $yamlpath) |
|
86
|
0 |
1 |
unless my($fuse, $val) = $_[1] =~ /^(.*?)=(.*)$/ |
|
87
|
1 |
0 |
if $val =~ /^0/ |
|
90
|
0 |
9 |
unless &GetOptionsFromArray(\@argv, 'h|help', sub {
usage(0);
}
, 'v|verbose', \my $VERBOSE, 'p|part=s', sub {
my $partname = $_[1];
$partname = "ATmega\U$1\E" if $partname =~ /^(?:atmega|m)(.*)$/i;
$partname = "ATtiny\U$1\E" if $partname =~ /^(?:attiny|t)(.*)$/i;
$yamlpath = "$SHAREDIR/$partname.yaml";
unless (-f $yamlpath) {
print STDERR "No YAML file found at $yamlpath\n";
exit 1;
} ;
}
, 'f|fuse=s', sub {
die "Unable to parse --fuse\n" unless my($fuse, $val) = $_[1] =~ /^(.*?)=(.*)$/;
$val = oct $val if $val =~ /^0/;
$current{lc substr($fuse, 0, 1)} = $val;
}
) |
|
94
|
0 |
9 |
unless defined $yamlpath |
|
104
|
0 |
3 |
unless my($name, $val) = $arg =~ /^(\w+)=(.*)$/ |
|
107
|
1 |
2 |
if ($val eq '?') |
|
118
|
2 |
6 |
if ($VERBOSE) |
|
127
|
5 |
16 |
if ($fuseinfo->{'values'}) { } |
|
132
|
12 |
4 |
$val ? : |
|
168
|
0 |
1 |
unless exists $self->{'regs'}{$name} |
|
179
|
0 |
2 |
unless my $fuseinfo = $self->{'fusemap'}{$name} |
|
189
|
1 |
1 |
if ($fuseinfo->{'values'}) { } |
|
191
|
0 |
1 |
unless defined $chosen |
|
197
|
1 |
0 |
if $val |
|
208
|
0 |
1 |
unless my $fuseinfo = $self->{'fusemap'}{$name} |
|
211
|
1 |
0 |
if ($fuseinfo->{'values'}) { } |