fork download 
  1. package MyClass;
  2.  
  3. sub new { bless {} => shift }
  4.  
  5. package main;
  6. use strict;
  7. use warnings;
  8. use Data::Dumper;
  9.  
  10. eval {
  11.     die MyClass->new;
  12. };
  13. if ($@) {
  14.     warn "Died with " . Dumper($@);
  15. }
Success #stdin #stdout #stderr 0.02s 5056KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
stderr 
Died with $VAR1 = bless( {}, 'MyClass' );
https://ideone.com/7ke8MN
language:
Perl (perl 5.28.1)
created:
12 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!