#ExampleClass.pm
package ExampleClass;

use lib '.';
use Bar;
use Foo qw/can_i_see_you/;

sub new {
    my $class = shift;
    bless {}, $class;
}

sub does_work {
   can_i_see_you();
}

1;