test.pl

use strict;
use warnings;

{
    package Ndn::Widget;

    sub fob_id { '1' }

    sub Fob {
        my $self = shift;
        Ndn::Widget::Fob->Load({id => $self->fob_id});
    }

    package Ndn::Widget::Fob;

    sub Load { print "Ok!" }
}

Ndn::Widget::Fob->Load;