=head1 NAME

subs - Perl pragma to declare sub names and initialize them?

=head1 SYNOPSIS

   use subs::i start_html => \&AUTOLOAD;

=cut

package subs::i;
sub import {
    my $callpack = caller;
    my $pack = shift;
    my %imports = @_;
    foreach $sym (keys %imports) {
	*{"${callpack}::$sym"} = $imports{$sym};
    }
};