package BLL::OtherPackage;

use strict;
use warnings;

use base 'Exporter';
our @EXPORT_OK = qw( sub_in_other_file );

sub sub_in_other_file {
   my $self = shift;
   # $self would be what I expected if I didn't put this in 
   # the 'use base' or @ISA for that matter. What an abuse.
}
1;