diff options
author | Daniel Friesel <derf@finalrewind.org> | 2011-03-01 21:48:13 +0100 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2011-03-01 21:48:13 +0100 |
commit | 48da68f614a9da1b7f91b50a3e4c6655009e211e (patch) | |
tree | 1ceaa914f7baa32222551eca3a36d2b160ed0c93 /lib/App | |
parent | ef76ccd91ecddafb953554b6d4847a651e338d99 (diff) |
Move -v/-h logic from App::Dthumb to bin/dthumb
Diffstat (limited to 'lib/App')
-rwxr-xr-x | lib/App/Dthumb.pm | 21 | ||||
-rw-r--r-- | lib/App/Dthumb/Data.pm.PL | 2 |
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) = @_; |