[Summary view] [Print] [Text view]

   1  package CPAN::DeferedCode;
   2  
   3  use strict;
   4  use vars qw/$VERSION/;
   5  
   6  use overload fallback => 1, map { ($_ => 'run') } qw/
   7      bool "" 0+
   8  /;
   9  
  10  $VERSION = "5.50";
  11  
  12  sub run {
  13      $_[0]->();
  14  }
  15  
  16  1;