use strict;
use warnings;
use Glib;

my $f = Glib::ParamFlags->new (['readable']);
print $f,"\n";
use Data::Dumper;
print Dumper($f);

my $g = Glib::ParamFlags->new ($f + 'writable');
print $g,"\n";
print Dumper($g);

# this is an error
my $h = Glib::Flags->new (['readable']);