http://qs321.pair.com?node_id=935482


in reply to logical non-short-circuit operators

if (grep $_,
    my $num  = $recFono->field_as_text('102'),
    my $type = $recFono->field_as_text('104'),
) {
    ...
}

[download]

In Section Seekers of Perl Wisdom