given($_) {
when (/1/) {  error_entry(); }
when (/2/) {  warning_entry(); }
}