#!/usr/bin/perl

#use strict;

package pkg1;

sub test1
{ 
  my $meta = 1;

  $_[0]->(1);
  eval { $_[0]->(2) };
  eval '$_[0]->(3)';
}

package pkg2;

{ 
  pkg1::test1 ( sub { print "$_[0]: meta=$meta;\n"; } );
}