Testing our app mocking the 3rd party class
use strict;
use warnings;
use Test::More;
use Mock::Quick qw(qclass);
my $control;
BEGIN {
$control = qclass(
-implement => 'SomeClass',
-with_new => 1,
-attributes => [ qw(name) ],
get_salary => undef,
);
}
use MyApp;
is MyApp::give_name('Foo'), 'Foo';
is MyApp::get_my_salary, 22;
$control->undefine();
done_testing;