summaryrefslogtreecommitdiff
path: root/lib/App
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2011-03-01 21:48:13 +0100
committerDaniel Friesel <derf@finalrewind.org>2011-03-01 21:48:13 +0100
commit48da68f614a9da1b7f91b50a3e4c6655009e211e (patch)
tree1ceaa914f7baa32222551eca3a36d2b160ed0c93 /lib/App
parentef76ccd91ecddafb953554b6d4847a651e338d99 (diff)
Move -v/-h logic from App::Dthumb to bin/dthumb
Diffstat (limited to 'lib/App')
-rwxr-xr-xlib/App/Dthumb.pm21
-rw-r--r--lib/App/Dthumb/Data.pm.PL2
2 files changed, 1 insertions, 22 deletions
diff --git a/lib/App/Dthumb.pm b/lib/App/Dthumb.pm
index ecde021..fc21059 100755
--- a/lib/App/Dthumb.pm
+++ b/lib/App/Dthumb.pm
@@ -149,27 +149,6 @@ external scripts. This documentation is only for people working on
B<App::Dthumb> itself. All of them are object-oriented, so need to be called
as $dthumb->something().
-=head2 check_cmd_flags
-
-Check if version/help flags in the config are set. If so, print the
-corresponding text to STDOUT and quit.
-
-=cut
-
-
-sub check_cmd_flags {
- my ($self) = @_;
-
- if ($self->{config}->{version}) {
- say "dthumb version ${VERSION}";
- exit 0;
- }
- if ($self->{config}->{help}) {
- say "Please refer to perldoc -F $0 (or man dthumb)";
- exit 0;
- }
-}
-
=head2 read_directories
diff --git a/lib/App/Dthumb/Data.pm.PL b/lib/App/Dthumb/Data.pm.PL
index ba99c82..c430c0a 100644
--- a/lib/App/Dthumb/Data.pm.PL
+++ b/lib/App/Dthumb/Data.pm.PL
@@ -46,7 +46,7 @@ use Data::Section -setup;
use MIME::Base64 qw(decode_base64);
our @EXPORT_OK = ();
-our $VERSION = '0.1';
+our $VERSION = '0.2';
sub new {
my ($obj) = @_;