view release on metacpan or  search on metacpan

images/button2.gif.pl  view on Meta::CPAN

    my ($r, $image, $filters, $args) = @_ ;

    $image->Set(size=>'30x105');
    $image->Read('gradient:#00f685-#0083f8');
    $image->Rotate(-90);
    $image->Raise('6x6');
    
    $args -> {font}         = '/usr/msrc/fonts/arial.ttf' ;
    $args -> {gravity}      = 'Center' ;
    $args -> {pointsize}    = 18 ;

    push @$filters, 'Annotate' ;

    1 ;