# WARNING - this dodgy (but cute) hack only works if the caller didn't change
# it's @_ vector - so DON'T use shift with this, use my ($self) = @_!

package DB;
use vars qw(@args);

#TODO check that DB::from is not defined already!!

sub from {
        my @dummy = caller(2);
        return $DB::args[0];
}

package from;

use strict;
use vars qw(@ISA @EXPORT);

@ISA = qw(Exporter);
@EXPORT = qw(from);

*from = \&DB::from;