Select Code to Download

Select or download this

# Convert to Image::Maggick image
my $pic = Image::Magick->new(magick=>'jpg');  #   create new image obj
+ect
...

#pass the $pic object to the subroutine and measure image darkness.
my $test = ImageNotDark ($pic);  #

Select or download this

sub ImageNotDark  {
# Argument is one reference to an image object.
...

    my $iutImage = Image::Magick->new;  #the image tested for darkness
    $iutImage->Read(@_);  # get the image under test (iut)