Select Code to Download

   +---------+        +---------+        +---------+
   |  Filter |        |   Safe  |        |   Base  | 
...
                    +-------------+
                    | Safe_Filter | @ISA=qw(Filter Safe Base);
                    +-------------+

  BEGIN { push @MIXIN, "#line ".__LINE__.' "'.__FILE__.'"', "", <<'/' 
+}
  sub compile {
    eval { local $SIG{__DIE__}; (shift)->SUPER::compile( @_) };
  }
  /

  sub compile {
    eval { local $SIG{__DIE__}; (shift)->NEXT('compile', @_) };
  }

  sub NEXT {
    my ( $self, $method, @args ) = @_;
...
    }
    Carp::croak( "Can't find NEXT method" );
  }