sub AUTOLOAD {
    (my $meth = our $AUTOLOAD) =~ s/([^:]+)$/$1/;

    if ( $meth =~ /^is_/ ) {
        return;
    } else {
        die "No such subroutine '$meth''";
   }
}