From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more
123456789101112 #!/usr/bin/perl -wuse strict;use warnings;use Test::More qw( no_plan );use Gtk2 '-init';use_ok 'Gapp::UIManager';my $w = Gapp::UIManager->new;ok $w, 'created gapp widget';ok $w->gtk_widget, 'created gtk widget';
#!/usr/bin/perl -w
use
strict;
warnings;
Test::More
qw( no_plan )
;
Gtk2
'-init'
use_ok
'Gapp::UIManager'
my
$w
= Gapp::UIManager->new;
ok
,
'created gapp widget'
->gtk_widget,
'created gtk widget'