Rudesind

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

    Rudesind::Build->new( module_name   => 'Rudesind',
                          license       => 'perl',
                          sign          => 1,
                          requires      =>
                          { 'Apache::Request'  => 0,
                            'Class::Roles'     => 0,
                            'Config::Auto'     => 0,
                            'File::Find::Rule' => 0,
                            'File::Slurp'      => 0,
                            'HTML::Mason'      => '1.10',
                            'Image::Magick'    => 0,
                            'Image::Size'      => 0,
                            'MasonX::WebApp'   => '0.04',
                            'Params::Validate' => 0,
                            'Path::Class'      => 0,
                            'Text::WikiFormat' => 0,
                          },
                          create_makefile_pl => 'passthrough',
                        );

$build->get_html_dir unless $dist;

META.yml  view on Meta::CPAN

author: ~
abstract: A Mason-based image gallery
license: perl
requires:
  Apache::Request: 0
  Class::Roles: 0
  Config::Auto: 0
  File::Find::Rule: 0
  File::Slurp: 0
  HTML::Mason: 1.10
  Image::Magick: 0
  Image::Size: 0
  MasonX::WebApp: 0.04
  Params::Validate: 0
  Path::Class: 0
  Text::WikiFormat: 0
provides:
  Rudesind:
    file: lib/Rudesind.pm
    version: 0.04
  Rudesind::Captioned:

lib/Rudesind.pm  view on Meta::CPAN

package Rudesind;

use strict;

use Apache::Request;

use File::Slurp ();
use File::Spec;
use Image::Magick ();
use Path::Class ();

use Rudesind::Config;
use Rudesind::Gallery;
use Rudesind::Image;
use Rudesind::UI;


$Rudesind::VERSION = 0.04;

lib/Rudesind/Image.pm  view on Meta::CPAN

use strict;

use Rudesind::Captioned;

use Class::Roles does => 'Rudesind::Captioned';

use File::Basename ();
use File::Path ();
use File::Slurp ();
use Image::Magick;
use Image::Size ();
use Params::Validate qw( validate UNDEF SCALAR ARRAYREF );
use Path::Class ();

use Rudesind::Config;


sub new
{
    my $class = shift;

lib/Rudesind/Image.pm  view on Meta::CPAN

                        height     => { type    => SCALAR,
                                        default => $self->height,
                                      },
                        rotate     => { type    => SCALAR,
                                        default => 0,
                                      },
                        output_file => { type => SCALAR },
                      },
                    );

    my $img = Image::Magick->new;
    $img->Read( filename => $self->file );

    if ( $p{max_width} && $p{max_height} )
    {
        if ( $p{max_width}  < $img->Get('width')
             ||
             $p{max_height} < $img->Get('height')
           )
        {
            my $width_r  = $p{max_width}  / $img->get('width');