Add functions

Changes

@@ -1,6 +1,7 @@
 Revision history for Perl module Image::PNG::Data
 
-0.00_02 2021-02-03
+0.01 2021-04-26
+
+- Initial version (was previously Image::PNG::Util)
 
-- Initial version
 

lib/Image/PNG/Data.pm

@@ -9,13 +9,18 @@ our @EXPORT_OK = qw/
     alpha_unused
     any2gray8
     bwpng
+    pngback
+    pngpixelate
+    pngmono
     rgb2gray
     rmalpha
 /;
+
 our %EXPORT_TAGS = (
     all => \@EXPORT_OK,
 );
-our $VERSION = '0.00_02';
+
+our $VERSION = '0.01';
 require XSLoader;
 XSLoader::load ('Image::PNG::Data', $VERSION);
 
@@ -100,27 +105,16 @@ sub any2gray8
     return $wpng;
 }
 
-sub poo
+sub pngmono
 {
-my ($data) = @_;
-    my $type;
-    for (@$data) {
-	if (ref $_ eq 'ARRAY') {
-	    if ($type && $type ne '2d') {
-		carp "bwpng's argument has mixed rows";
-		return undef;
-	    }
-	    $type = '2d';
-	}
-	if (ref $_ eq '') {
-	    $type = 'string';
-	}
-    }
-    if ($type ne '2d' && $type ne 'string') {
-	carp "bwpng doesn't know what to do with this input";
-	return undef;
-    }
+}
 
+sub pngback
+{
+}
+
+sub pngpixelate
+{
 }
 
 sub bwpng

lib/Image/PNG/Data.pod.tmpl

@@ -35,6 +35,9 @@ This module provides various utilities for manipulating and testing
 the image data part of a PNG image. This is a companion module to
 L<Image::PNG::Libpng> by the same authors.
 
+B<The documentation below refers to functions which are not yet
+implemented.>
+
 =head1 FUNCTIONS
 
 =head2 alpha_unused
@@ -75,7 +78,8 @@ This function is not supported for versions of libpng earlier than
 
     my $png = bwpng (\@rows, sq => 20);
 
-Convert boolean-style data into a black and white PNG.
+Convert boolean-style data into a black and white PNG. A two-color PNG
+is also possible:
 
     bwpng (\@rows, black => '#CFF', white => '#C00');
 
@@ -87,7 +91,7 @@ Convert boolean-style data into a black and white PNG.
 
     my $gray_png = rgb2gray ('colorful.png');
 
-Convert RGB to gray.
+Convert an RGB PNG image to a grayscale one.
 
 Options:
 
@@ -106,7 +110,7 @@ structure for writing with the alpha channel data removed.
 
 =head2 split_alpha
 
-Copy from IPL.
+Unimplemented, due to be copied from L<Image::PNG::Libpng>.
 
 =head1 DEPENDENCIES
 

t/bwpng.t

@@ -67,5 +67,5 @@ my $qr = <<EOF;
 *     * **  * *   ***
 ******* * *  ****    
 EOF
-
+ok (1);
 done_testing ();