Select Code to Download

# 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);  #

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)

sub ImageNotDark {
  my ($iutImage,$arg2,$arg3,...) = @_;
...
  my $iutImage = shift;
  my $arg2 = shift;
  ...