t/lib/croak/pp

   1 __END__
   2 # NAME our @a->{0}
   3 # Somewhat nonsensical, but at least it should not fail an assertion.
   4 our @a->{0};
   5 EXPECT
   6 Can't use an undefined value as a HASH reference at - line 2.
   7 ########
   8 # NAME [perl #119809] Attempt to bless into a reference (tied)
   9 sub TIESCALAR { bless [] }
  10 sub FETCH { [] }
  11 tie $t, "";
  12 bless({}, $t);
  13 EXPECT
  14 Attempt to bless into a reference at - line 4.
  15 ########
  16 # NAME [perl #119809] Attempt to bless into a reference (magical)
  17 $/ = \1;
  18 bless [], $/
  19 EXPECT
  20 Attempt to bless into a reference at - line 2.
  21 ########
  22 # NAME Attempt to bless into a reference after method changes
  23 sub foo{} bless [], bless []
  24 EXPECT
  25 Attempt to bless into a reference at - line 1.