package a;
 sub sa { return 1 }
 sub sb { return 2 }

 package b;
 sub sb { return 3 }

 package main;
 use Class::Merge qw(b a) => 'c';

 $r= c->sb();  # returns 3

##</code><code>##

sub import {
  my $dest=pop;
  shift;
  eval <<"EOF";
package $dest;
\@${dest}::ISA=qw(@_);
EOF
}