The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Storm::SQL::Literal;
{
  $Storm::SQL::Literal::VERSION = '0.19';
}
use Moose;
use MooseX::SemiAffordanceAccessor;
use MooseX::StrictConstructor;

has 'string' => (
    is  => 'ro',
    isa => 'Str',
    required => 1,
);

sub sql {
    return $_[0]->string;
}

sub BUILDARGS {
    my $class = shift;

    if ( @_ == 1 && ! ref $_[0] ) {
        return { string => $_[0] };
    }
    else {
        return $class->SUPER::BUILDARGS(@_);
    }
}



no Moose;
__PACKAGE__->meta->make_immutable;

1;