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