Permalink
Browse files

working on clean command

  • Loading branch information...
1 parent f180a5a commit b8b6cb58b1908e0f635fdcf5b031b58f3877a527 @petdance committed Jun 12, 2010
Showing with 12 additions and 5 deletions.
  1. +12 −2 Podium.pm
  2. +0 −3 podium
View
@@ -18,10 +18,13 @@ our $VERSION = '0.01';
use App::Podium::PSH;
use File::Slurp;
-
+use Getopt::Long;
+use YAML qw( LoadFile );
use Template ();
use Template::Constants qw( :debug :chomp );
+use ExtUtils::Command qw( rm_rf );
+
=head1 SYNOPSIS
Helper functions for podium. No user-serviceable parts inside.
@@ -128,14 +131,21 @@ sub command_test {
sub command_clean {
my $config = shift;
- say 'TODO: Make this do something';
+ local @ARGV = $config->{buildpath};
+ rm_rf;
return;
}
+sub _mkpath {
+ local @ARGV = @_;
+}
+
sub command_build {
my $config = shift;
+ _mkpath( $config->{buildpath} );
+
my $tt = App::Podium::build_tt_object( $config );
my $vars = {};
View
3 podium
@@ -18,9 +18,6 @@ use strict;
use warnings;
use Carp::Always;
-use Getopt::Long;
-use YAML qw( LoadFile );
-
use App::Podium;
MAIN: {

0 comments on commit b8b6cb5

Please sign in to comment.