# This code has been run through a basic smoke-test.

package My::Error::String;

use overload
    '""' => \&stringify,
    '0+' => \&boolify,
        fallback => 1;

sub new {
    my $class = shift;
    my $error = shift;

    bless \$error, $class;
}

sub stringify {
    my $self = shift;
    return $$self;
}

sub boolify {
    return;
}