Re^2: 78/80 chars perl line still a meaningful rule

$condition or confess sprintf(
    "Insufficent data in X from %s through %s source data file %s",
    $hash{lookup1},
    $hash{lookup2},
    $hash{lookup3},
);
[download]

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Comment on Re^2: 78/80 chars perl line still a meaningful rule Download Code