#!/usr/bin/perl
use warnings;
use strict;

use Foo;

use Sub::Override;

sub fixed_foo { "I'm overridden foo" }

my $override = Sub::Override->new;

$override->replace(  'Foo::foo' => \&fixed_foo );   # maybe 'foo'

print "Foo::Ridden: ", Foo::foo(), $/;

print "Foo::Ridden: ", Foo::bar, $/;

print "   ::Ridden: ", foo(), $/;
$override->restore;

print "   ::Orig: ", foo(), $/;