| line |
l |
!l |
condition |
|
135
|
0 |
0 |
$self->{'interfaces'} //= [map({Interface("$_->{'type'}", "$_->{'name'}");} @{$$self{'_device'}{'interfaces'}{'interface'};})] |
|
211
|
0 |
0 |
$self->{'memories'} //= [map({my(@segments) = exists $_->{'memory-segment'} ? map({my $rw = $_->{'rw'};
MemorySegment(hex "$_->{'start'}", hex "$_->{'size'}", "$_->{'name'}", "$_->{'type'}", scalar $rw =~ /R/, scalar $rw =~ /W/, !!"$_->{'exec'}", hex "$_->{'pagesize'}");} @{$$_{'memory-segment'};}) : ();
bless ["$_->{'name'}", "$_->{'id'}", "$_->{'endianness'}", hex "$_->{'start'}", hex "$_->{'size'}", \@segments], 'Device::AVR::Info::_Memory';} @{$$self{'_device'}{'address-spaces'}{'address-space'};})] |
|
256
|
0 |
0 |
$self->{'interrupts'} //= [map({Interrupt("$_->{'name'}", "$_->{'index'}", "$_->{'caption'}");} @{$$self{'_device'}{'interrupts'}{'interrupt'};})] |
|
318
|
0 |
0 |
$self->{'peripherals'} //= [map({my $module = $self->_module_by_name("$_->{'name'}");
map {my $reggroup = $_->{'register-group'}[0];
bless ["$_->{'name'}", $module, "$reggroup->{'name-in-module'}", hex "$reggroup->{'offset'}", $self->_memory_by_id($reggroup->{'address-space'})], 'Device::AVR::Info::_Peripheral';} @{$$_{'instance'};};} @{$$self{'_device'}{'peripherals'}{'module'};})] |
|
361
|
0 |
0 |
$self->{'property_groups'} //= {map({"$_->{'name'}", $_->{'property'};} @{$$self{'_device'}{'property-groups'}{'property-group'};})} |
|
375
|
0 |
0 |
$self->{'properties'}{$group} //= {map({my $value = $_->{'value'};
$value = hex $value if $value =~ /^0x[[:xdigit:]]+$/;
"$_->{'name'}", "$value";} @$properties)} |