use strict;
use warnings;
use feature 'say';
use Pango;

my $surface = Cairo::ImageSurface-> create( 'argb32', 200, 100 );
my $cr      = Cairo::Context-> create( $surface );
my $layout  = Pango::Cairo::create_layout( $cr );
my $font    = Pango::FontDescription-> from_string( 'Arial 16' );

#Pango::Cairo::Context-> set_resolution( $cr, 72 );

$layout-> set_font_description( $font );
$layout-> set_text( "\x{0628}\x{0644}\x{062D}\x{0629}" );
 
say for Pango::Layout::get_pixel_size( $layout );