# -*- Perl -*-

use strict;
use warnings;

package TT;

use base 'Exporter';
our @EXPORT = qw/s1/;

sub s1 {
    my $sub = shift || \&s2;
    $sub->(qw/foo bar/);
}

sub s2 {
    print "Default s2\n";
    print "Args: @_\n";
}

1;


__END__