Permalink
Browse files

Initial commit (from HTML::Barcode)

  • Loading branch information...
0 parents commit 149025020e50903129bc4ba2dbb34f2dbd154704 @mstratman committed Jul 2, 2011
Showing with 362 additions and 0 deletions.
  1. +17 −0 .gitignore
  2. +28 −0 Changes
  3. +26 −0 MANIFEST.SKIP
  4. +16 −0 Makefile.PL
  5. +55 −0 README
  6. +151 −0 lib/HTML/Barcode/Code128.pm
  7. +9 −0 t/00-load.t
  8. +17 −0 t/01-code128.t
  9. +13 −0 t/manifest.t
  10. +18 −0 t/pod-coverage.t
  11. +12 −0 t/pod.t
@@ -0,0 +1,17 @@
+.*
+!.gitignore
+Makefile*
+!Makefile.PL
+META.yml
+MYMETA.yml
+blib
+build
+inc
+pm_to_blib
+MANIFEST
+MANIFEST.bak
+!MANIFEST.SKIP
+Debian*
+HTML-Barcode-*
+*.bs
+t/tmp
@@ -0,0 +1,28 @@
+Revision history for HTML-Barcode-Code93
+
+0.09 Sat Jul 2 13:36:27 EDT 2011
+ - Broke off into its own distribution from HTML::Barcode
+
+0.08 Tue Apr 5 19:33:19 CDT 2011
+ - Fixed(?) tests for cpantesters failure
+
+0.07 Mon Apr 4 15:44:08 CDT 2011
+ - Moved Code93 logic into Barcode::Code93
+ - added embed_style option
+ - rendered POD examples with embed_style
+ in hopes that search.cpan.org will stop stripping it out.
+
+0.06 Thu Mar 31 20:18:56 CDT 2011
+ - Fixed string interpolation issues for perl 5.6(?)
+
+0.05 Thu Mar 31 18:46:41 CDT 2011
+ - Add synopsis to HTML::Barcode (it wasn't immediately
+ clear how to use this module)
+
+0.04 Wed Mar 30 13:27:24 CDT 2011
+ - use Any::Mouse
+
+0.03 Tue Mar 29 19:18:38 CDT 2011
+ - Initial release
+
+
@@ -0,0 +1,26 @@
+^HTML-Barcode-
+MYMETA\.yml
+^\.gitignore
+\.swp$
+pod2h*
+\bRCS\b
+\bCVS\b
+^MANIFEST\.
+^Makefile$
+~$
+^#
+\.old$
+^blib/
+^pm_to_blib
+^MakeMaker-\d
+\.gz$
+\.cvsignore
+^t/9\d_.*\.t
+^t/perlcritic
+^tools/
+\.svn/
+^[^/]+\.yaml$
+^[^/]+\.pl$
+^\.shipit$
+^\.git/
+\.sw[po]$
@@ -0,0 +1,16 @@
+use inc::Module::Install;
+name 'HTML-Barcode-Code128';
+license 'perl';
+all_from 'lib/HTML/Barcode/Code128.pm';
+
+requires 'HTML::Barcode' => '0.09';
+requires 'Any::Moose' => '0.15';
+requires 'Barcode::Code128' => '2.01';
+
+tests 't/*.t';
+
+test_requires 'Test::More';
+githubmeta;
+auto_include;
+auto_install;
+WriteAll;
@@ -0,0 +1,55 @@
+HTML-Barcode-Code128
+
+The README is used to introduce the module and provide instructions on
+how to install the module, any machine dependencies it may have (for
+example C compilers and installed libraries) and any other information
+that should be provided before the module is installed.
+
+A README file is required for CPAN modules since CPAN extracts the README
+file from a module distribution so that people browsing the archive
+can use it to get an idea of the module's uses. It is usually a good idea
+to provide version information here so that people can decide whether
+fixes for the module are worth downloading.
+
+
+INSTALLATION
+
+To install this module, run the following commands:
+
+ perl Makefile.PL
+ make
+ make test
+ make install
+
+SUPPORT AND DOCUMENTATION
+
+After installing, you can find documentation for this module with the
+perldoc command.
+
+ perldoc HTML::Barcode::Code128
+
+You can also look for information at:
+
+ RT, CPAN's request tracker (report bugs here)
+ http://rt.cpan.org/NoAuth/Bugs.html?Dist=HTML-Barcode-Code128
+
+ AnnoCPAN, Annotated CPAN documentation
+ http://annocpan.org/dist/HTML-Barcode-Code128
+
+ CPAN Ratings
+ http://cpanratings.perl.org/d/HTML-Barcode-Code128
+
+ Search CPAN
+ http://search.cpan.org/dist/HTML-Barcode-Code128/
+
+
+LICENSE AND COPYRIGHT
+
+Copyright (C) 2011 Mark A. Stratman
+
+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.
+
+See http://dev.perl.org/licenses/ for more information.
+
Oops, something went wrong.
@@ -0,0 +1,9 @@
+#!perl -T
+
+use Test::More tests => 1;
+
+BEGIN {
+ use_ok( 'HTML::Barcode::Code128' ) || print "Bail out!\n";
+}
+
+diag( "Testing HTML::Barcode::Code128 $HTML::Barcode::Code128::VERSION, Perl $], $^X" );
@@ -0,0 +1,17 @@
+use Test::More;
+
+eval { require Barcode::Code128; 1 };
+my $has_mod = $@ ? 0 : 1;
+subtest 'code128' => sub {
+ plan($has_mod ? (tests => 3) : (skip_all => 'Optional module Barcode::Code128 not installed'));
+ require_ok( 'HTML::Barcode::Code128' );
+ my $code = new_ok('HTML::Barcode::Code128' => [text => 'MONKEY']);
+ my $output = $code->render;
+ cmp_ok($output, 'eq', render_expected(), 'render() output was as expected');
+};
+
+done_testing;
+
+sub render_expected {
+ return '<style type="text/css">table.hbc {border-width:0;border-spacing:0;}table.hbc {border-width:0;border-spacing:0;}table.hbc tr, table.hbc td{border:0;margin:0;padding:0;}table.hbc td{text-align:center;}table.hbc td.hbc_on,table.hbc td.hbc_off {width:2px;height:100px;}table.hbc td.hbc_on {background-color:#000;color:inherit;}table.hbc td.hbc_off {background-color:#fff;color:inherit;}</style><table class="hbc"><tr><td class="hbc_on"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_off"></td><td class="hbc_off"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_on"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_off"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_off"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_on"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_on"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_off"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_off"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_on"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_off"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_off"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_on"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_off"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_off"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_on"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_off"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_on"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_off"></td><td class="hbc_on"></td><td class="hbc_on"></td></tr><tr><td colspan="101">MONKEY</td></tr></table>';
+}
@@ -0,0 +1,13 @@
+#!perl -T
+
+use strict;
+use warnings;
+use Test::More;
+
+unless ( $ENV{RELEASE_TESTING} ) {
+ plan( skip_all => "Author tests not required for installation" );
+}
+
+eval "use Test::CheckManifest 0.9";
+plan skip_all => "Test::CheckManifest 0.9 required" if $@;
+ok_manifest();
@@ -0,0 +1,18 @@
+use strict;
+use warnings;
+use Test::More;
+
+# Ensure a recent version of Test::Pod::Coverage
+my $min_tpc = 1.08;
+eval "use Test::Pod::Coverage $min_tpc";
+plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
+ if $@;
+
+# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
+# but older versions don't recognize some common documentation styles
+my $min_pc = 0.18;
+eval "use Pod::Coverage $min_pc";
+plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
+ if $@;
+
+all_pod_coverage_ok();
@@ -0,0 +1,12 @@
+#!perl -T
+
+use strict;
+use warnings;
+use Test::More;
+
+# Ensure a recent version of Test::Pod
+my $min_tp = 1.22;
+eval "use Test::Pod $min_tp";
+plan skip_all => "Test::Pod $min_tp required for testing POD" if $@;
+
+all_pod_files_ok();

0 comments on commit 1490250

Please sign in to comment.