Skip to content
Browse files

Trivial sample of Mobigen::Command

  • Loading branch information...
1 parent 3acbdce commit a0ea10790dd02d1f1bd202afe726bd3cec571975 @edipretoro committed
Showing with 12 additions and 0 deletions.
  1. +12 −0 eg/html2mobi.pl
View
12 eg/html2mobi.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl -w
+
+use strict;
+use warnings;
+
+use lib '../lib';
+use Mobigen::Command;
+
+my $mobi = Mobigen::Command->new();
+
+$mobi->input_file(shift) or die "Usage: $0 file.html\n";
+$mobi->execute();

0 comments on commit a0ea107

Please sign in to comment.
Something went wrong with that request. Please try again.