DB<140> p B::Deparse->new('-q')->coderef2text(\&rep)
{
    use feature 'current_sub', 'evalbytes', 'fc', 'postderef_qq', 'say', 'state', 'switch', 'unicode_strings', 'unico\
de_eval';
    '<' . $1 . '>';
}
  DB<141>