package Text::Figlet;

use Text::Figlet::Font;
use Text::Figlet::Control;

sub new {
    my $proto = new;
    my $class = 'Font';
    if ($_[0] =~ /Font|Control/i) {
        $class = ucfirst(shift);
    }
    $class = "Text::Figlet::$class";
    $class->new(@_);
}