#!/usr/bin/perl

use Cwd;
use File::Spec;

my $module = $ARGV[0] || prompt( "Module name> " );
my $dist   = $module; $dist =~ s/::/-/g;
my $file   = $module; $file =~ s/.*:://; $file .= ".pm";

my $cwd    = File::Spec->catfile( cwd(), $dist );

system 
        join " ",
        "/usr/local/bin/ttree"        ,
        "-s ~/.templates/modules"     ,
        "-d $cwd"                     ,
        "-define module='$module'"    ,
        "-define module_file='$file'" ,
        "-define module_dist='$dist'"
        ;

chdir $dist;

( my $base = $module ) =~ s/.*:://;

rename 
        File::Spec->catfile( 'lib', 'Foo.pm' ),
        File::Spec->catfile( 'lib', $file );
        

sub prompt
        {
        print join "\n", @_;
        print "> ";
        
        my $line = <STDIN>;
        chomp $line;
        $line;
        }