Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

added version

  • Loading branch information...
commit b843fd4cb8b59e2015eb18ef9e8b653185a501a0 1 parent b8b6cb5
@petdance authored
Showing with 38 additions and 4 deletions.
  1. +28 −3 Podium.pm
  2. +3 −1 podium
  3. +7 −0 tags
View
31 Podium.pm
@@ -92,7 +92,10 @@ sub make_filename {
sub get_config {
my $configfile;
- GetOptions( 'configfile:s' => \$configfile ) or exit;
+ GetOptions(
+ 'configfile:s' => \$configfile,
+ version => sub { print get_version_statement(); exit 1; },
+ ) or exit;
if ( !$configfile ) {
$configfile = 'config.yaml';
@@ -102,6 +105,30 @@ sub get_config {
my $config = LoadFile( $configfile );
}
+=head2 get_version_statement
+
+Returns the version information for Podium.
+
+=cut
+
+sub get_version_statement {
+ require Config;
+
+ my $this_perl = $Config::Config{perlpath};
+ my $ver = sprintf( '%vd', $^V );
+
+ return <<"END_OF_VERSION";
+podium $VERSION
+Running under Perl $ver at $this_perl
+
+Copyright 2010 Andy Lester.
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of either: the GNU General Public License as
+published by the Free Software Foundation; or the Artistic License.
+END_OF_VERSION
+}
+
sub build_tt_object {
my $config = shift;
@@ -148,8 +175,6 @@ sub command_build {
my $tt = App::Podium::build_tt_object( $config );
- my $vars = {};
-
my @podfiles;
my @sidelinks;
View
4 podium
@@ -6,9 +6,11 @@ use 5.10.0;
Add --version
+Add --help
+
Add "test" action
-Add "clean" action
+Allow it to run without templates.
Let it copy over static stuff.
View
7 tags
@@ -7,11 +7,18 @@
App::Podium Podium.pm /^package App::Podium;$/;" p
App::Podium::PSH PSH.pm /^package App::Podium::PSH;$/;" p
MY Makefile.PL /^sub MY::postamble {$/;" s
+_mkpath Podium.pm /^sub _mkpath {$/;" s
+build_tt_object Podium.pm /^sub build_tt_object {$/;" s
+command_build Podium.pm /^sub command_build {$/;" s
+command_clean Podium.pm /^sub command_clean {$/;" s
+command_test Podium.pm /^sub command_test {$/;" s
critic Makefile.PL /^critic:$/;" l
dprof Makefile.PL /^dprof: all$/;" l
dproflb Makefile.PL /^dproflb: all$/;" l
fastprof Makefile.PL /^fastprof: all$/;" l
+get_config Podium.pm /^sub get_config {$/;" s
get_pages Podium.pm /^sub get_pages {$/;" s
+get_version_statement Podium.pm /^sub get_version_statement {$/;" s
make_filename Podium.pm /^sub make_filename {$/;" s
new PSH.pm /^sub new {$/;" s
nytprof Makefile.PL /^nytprof: all$/;" l
Please sign in to comment.
Something went wrong with that request. Please try again.