package Submitnet::Format::BadFormat;

use strict;
use warnings;

use Exporter 'import';
our @EXPORT = qw(bad_format);

use overload (
    fallback => 1,
    '""' => sub {
        my ($self) = @_;
        return $$self;
    },
);

sub bad_format {
    my ($error_message) = @_;
    die bless \$error_message, __PACKAGE__;
}