view release on metacpan or  search on metacpan

lib/Printer/ESCPOS/Profiles/Generic.pm  view on Meta::CPAN

    $cr->set_source_rgb( 0, 0, 0 );
    my $layout = Pango::Cairo::create_layout($cr);
    $layout->set_text($string);
    my $font =
      Pango::FontDescription->from_string("$fontFamily $fontStyle $fontSize");
    $layout->set_font_description($font);

    Pango::Cairo::show_layout( $cr, $layout );
    my $tempdir = File::Temp::tempdir();
    $surface->write_to_png( $tempdir . '/cairopangoprinterimage.png' );
    my $img = newFromPng GD::Image( $tempdir . '/cairopangoprinterimage.png' )
      || die "Error $!";
    $self->image($img);
}


sub image {
    my ( $self, $img ) = @_;
    my $paddingLeft  = '';
    my $paddingRight = '';