view release on metacpan or  search on metacpan

lib/Acme/MJD.pm  view on Meta::CPAN

    }
    close DATA;
    chomp $DeepThought;
    $DeepThought =~ s/^\#\d+\s//;

    require Text::Wrap;
    local $Text::Wrap::columns = 72;

    my @lines = Text::Wrap::wrap('', '', $DeepThought);

    if(length $lines[-1] < 63 ){
        $lines[-1] .= "  --  Mark Jason Dominus";
    } else {
        push @lines, "        --  Mark Jason Dominus";
    }

    $DeepThought = join "\n",@lines;
}

open 0, ">$0" or print "Cannot ponder '$0'\n" and exit;
print {0} "use Acme::MJD;\n\n$DeepThought\n", reflect $thought and exit;