#!/usr/bin/perl -s

use warnings;
use strict;

use lib 'blib/lib';
use Parse::Flapp;

our ($module);

my $file = shift or die "Pass .fyp file";

if (!$module) {
    $module = $file;
    $module =~ s/\..*$//;
}

if (-d $module) {
    die "Folder '$module' exists. Delete it!"
}

Parse::Flapp::_do(input => $file,
                  module => $module);