#!/usr/bin/perl -w

package Foo;
{
use Class::Std;

my %a : ATTR( :default('') :get<a>);
};

my $f = Foo->new();

print ref($f), "\n";
if (defined($f->get_a())) { print "yes\n"; } else { print  "no\n"; }
if ($f->get_a() eq '') { print "yes\n"; } else { print "no\n";  }

package Bar;
{
use Class::Std;

my %a : ATTR( :default('''') :get<a>);
};

my $g = Bar->new();

print ref($g), "\n";
if (defined($g->get_a())) { print "yes\n"; } else { print  "no\n"; }
if ($g->get_a() eq '') { print "yes\n"; } else { print "no\n";  }

print "Hello\n";

if (undef eq '') { print "yes\n" } else { print "no\n"; }