Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl --
use File::Spec;
...
if ($x) {
    die($x);
}
  2. or download this
    require Image::Magick;
my $imbase = Image::Magick->new(magick=>'png')
...
if ($x) {
    return $app->error($app->translate("Image error: [_1]", $x));
}
  3. or download this
    sub _generate_captcha {
    my $self = shift;
...
    my @blobs = $im->ImageToBlob(magick=>$format);
    return $blobs[0];
}