Permalink
Browse files

renamed

  • Loading branch information...
1 parent bb954c8 commit 739d15482bcd6f64020d2818d45cf141d18787e0 @dann committed May 9, 2010
Showing with 18 additions and 18 deletions.
  1. +2 −2 Makefile.PL
  2. +5 −5 README
  3. +2 −2 bin/{kindlegen → mobigen}
  4. +8 −8 lib/App/{kindlegen.pm → mobigen.pm}
  5. +1 −1 t/00_load_all.t
View
@@ -1,6 +1,6 @@
use inc::Module::Install;
-name 'App-kindlegen';
-all_from 'lib/App/kindlegen.pm';
+name 'App-mobigen';
+all_from 'lib/App/mobigen.pm';
requires(
'LWP::Simple' => 0,
View
10 README
@@ -1,11 +1,11 @@
-This is Perl module App::kindlegen.
+This is Perl module App::mobigen.
INSTALLATION
-App::kindlegen installation is straightforward. If your CPAN shell is set up,
+App::mobige installation is straightforward. If your CPAN shell is set up,
you should just be able to do
- % cpan App::kindlegen
+ % cpan App::mobigen
Download it, unpack it, then build it as per the usual:
@@ -18,9 +18,9 @@ Then install it:
DOCUMENTATION
-App::kindlegen documentation is available as in POD. So you can do:
+App::mobigen documentation is available as in POD. So you can do:
- % perldoc App::kindlegen
+ % perldoc App::mobigen
to read the documentation online with your favorite pager.
@@ -2,9 +2,9 @@
use strict;
use warnings;
use FindBin::Libs;
-use App::kindlegen;
+use App::mobigen;
-my $app = App::kindlegen->new;
+my $app = App::mobigen->new;
$app->parse_options(@ARGV);
$app->doit;
@@ -1,4 +1,4 @@
-package App::kindlegen;
+package App::mobigen;
use LWP::Simple ();
use Digest::MD5 qw(md5_hex);
use HTML::TreeBuilder;
@@ -17,7 +17,7 @@ sub new {
my $class = shift;
bless {
- home => File::Spec->catfile( $ENV{HOME}, ".kindlegen" ),
+ home => File::Spec->catfile( $ENV{HOME}, ".mobigen" ),
verbose => undef,
quiet => undef,
log => undef,
@@ -27,7 +27,7 @@ sub new {
hooks => {},
plugins => [],
download_dir =>
- File::Spec->catfile( $ENV{HOME}, ".kindlegen", "book" ),
+ File::Spec->catfile( $ENV{HOME}, ".mobigen", "book" ),
documents_dir =>
File::Spec->catfile( '/', 'Volumes', 'Kindle', 'documents' ),
@_,
@@ -57,19 +57,19 @@ sub setup_home {
= File::Spec->catfile( $self->{home}, "work", time . ".$$" );
mkdir $self->{base}, 0777 or die "$self->{base}: $!";
- $self->{log} = File::Spec->catfile( $self->{home}, "kindlegen.log" );
+ $self->{log} = File::Spec->catfile( $self->{home}, "mobigen.log" );
{
my $log = $self->{log};
my $base = $self->{base};
$self->{at_exit} = sub {
File::Copy::copy( $log,
- File::Spec->catfile( $base, 'kindlegen.log' ) );
+ File::Spec->catfile( $base, 'mobigen.log' ) );
};
}
open my $out, ">$self->{log}" or die "$self->{log}: $!";
- print $out "kindlegen (App::kindlegen) $VERSION on perl $]\n";
+ print $out "mobigen (App::mobigen) $VERSION on perl $]\n";
print $out "Work directory is $self->{base}\n";
$self->{plugin_dir} = File::Spec->catfile( $self->{home}, "plugins" );
@@ -307,7 +307,7 @@ sub load_plugin {
my $code = do { open my $io, "<$file"; local $/; <$io> };
my @hooks;
- eval "package App::kindlegen::plugin::$package;\n"
+ eval "package App::mobigen::plugin::$package;\n"
. "use strict;\n$dsl\n" . "\n"
. "sub hook { push \@hooks, [\@_] };\n$code";
@@ -370,7 +370,7 @@ sub log {
sub parse_options {
my $self = shift;
$self->{url} = $ARGV[0];
- die 'usage: kindlegen url' unless $self->{url};
+ die 'usage: mobigen url' unless $self->{url};
}
sub render_template {
View
@@ -3,5 +3,5 @@ use warnings;
use Test::LoadAllModules;
BEGIN {
- all_uses_ok(search_path => 'App::kindlegen');
+ all_uses_ok(search_path => 'App::mobigen');
}

0 comments on commit 739d154

Please sign in to comment.