line |
l |
!l |
condition |
123
|
0 |
0 |
$$self{'interfaces'} //= [map({Interface("$$_{'type'}", "$$_{'name'}");} @{$$self{'_device'}{'interfaces'}{'interface'};})] |
193
|
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'};})] |
234
|
0 |
0 |
$$self{'interrupts'} //= [map({Interrupt("$$_{'name'}", "$$_{'index'}", "$$_{'caption'}");} @{$$self{'_device'}{'interrupts'}{'interrupt'};})] |
292
|
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'};})] |
329
|
0 |
0 |
$$self{'property_groups'} //= {map({"$$_{'name'}", $$_{'property'};} @{$$self{'_device'}{'property-groups'}{'property-group'};})} |
343
|
0 |
0 |
$$self{'properties'}{$group} //= {map({my $value = $$_{'value'};
$value = hex $value if $value =~ /^0x[[:xdigit:]]+$/;
"$$_{'name'}", "$value";} @$properties)} |