Make it a property CPAN Perl module

gnp · Apr 18, 2012 · c7f2b25 · c7f2b25
1 parent c2564de
commit c7f2b25
Show file tree

Hide file tree

Showing 5 changed files with 41 additions and 4 deletions.
diff --git a/Build.PL b/Build.PL
@@ -0,0 +1,12 @@
+use strict;
+use warnings;
+use Module::Build;
+
+my $builder = Module::Build->new(
+    module_name         => 'MAS::TIFF',
+    license             => 'perl',
+    dist_author         => 'Gregor N. Purdy, Sr. <gnp@acm.org>',
+    dist_version_from   => 'lib/MAS/TIFF/File.pm',
+);
+
+$builder->create_build_script();
diff --git a/MANIFEST b/MANIFEST
@@ -0,0 +1,18 @@
+Build.PL
+COPYRIGHT
+lib/MAS/TIFF/Compression/LZW.pm
+lib/MAS/TIFF/DataType.pm
+lib/MAS/TIFF/Field.pm
+lib/MAS/TIFF/File.pm
+lib/MAS/TIFF/IFD.pm
+lib/MAS/TIFF/IO.pm
+lib/MAS/TIFF/Rational.pm
+Makefile.PL
+MANIFEST
+README.pod
+scripts/tryme.pl
+t/diffuse.tif
+t/lzw.t
+t/multi.tif
+t/noisy.tif
+t/original.tif
diff --git a/Makefile.PL b/Makefile.PL
@@ -0,0 +1,7 @@
+use ExtUtils::MakeMaker;
+
+WriteMakefile(
+  NAME          => 'MAS::TIFF',
+  VERSION_FROM  => 'lib/MAS/TIFF/File.pm',
+  AUTHOR        => 'Gregor N. Purdy, Sr. <gnp@acm.org>',
+);
diff --git a/README.pod b/README.pod
@@ -13,7 +13,5 @@ or were just about metadata. I needed a library that would allow me to read
 
 =head1 STATUS
 
-As of 2012-04-12, some basic metadata reading is working, but the API isn't
-really any good yet. The F<scripts/tryme.pl> script has too much code in it
-still. Also no access yet to pixel data.
-
+As of 2012-04-17, some basic metadata reading and reading pixels of bitonal LZW compressed
+strips is working, but the API isn't particularly well thought out yet.
diff --git a/lib/MAS/TIFF/File.pm b/lib/MAS/TIFF/File.pm
@@ -7,6 +7,8 @@ use warnings;
 
 package MAS::TIFF::File;
 
+our $VERSION = '0.1';
+
 sub new {
   my $class = shift;
   my $path = shift;