view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         "web" : "https://github.com/gugod/Acme-DreamyImage/issues"
      },
      "homepage" : "https://github.com/gugod/Acme-DreamyImage",
      "repository" : {
         "type" : "git",
         "url" : "git://github.com/gugod/Acme-DreamyImage.git",
         "web" : "https://github.com/gugod/Acme-DreamyImage"
      }
   },
   "version" : "2.0",
   "x_serialization_backend" : "JSON::PP version 2.97001",
   "x_static_install" : "1"
}

t/live_save_to_uguu.t  view on Meta::CPAN

use strict;
use Test::More;

use JSON::PP 'encode_json';
use Acme::DreamyImage;

my $output_file = "dreamy_" . int(rand(12345678)) . ".jpg";
my $seed = $output_file . time . $$;

my $img = Acme::DreamyImage->new(seed => $seed, width => 800, height => 450);
$img->write(file => $output_file);
ok -f $output_file, "The output is produced";
ok( (stat($output_file))[7] > 0, "The output size is non-zero." );