Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

working on clean command

  • Loading branch information...
commit b8b6cb58b1908e0f635fdcf5b031b58f3877a527 1 parent f180a5a
@petdance authored
Showing with 12 additions and 5 deletions.
  1. +12 −2 Podium.pm
  2. +0 −3  podium
View
14 Podium.pm
@@ -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: {
Please sign in to comment.
Something went wrong with that request. Please try again.