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

has 'value' => (
    is => 'rw',
    predicate => 'has_value',
    clearer => 'clear_value',
);

sub sql {
    return '?';
}

sub bind_params  {
    my ( $self ) = @_;
    return $self->has_value ? $self->value : ( );
}




no Moose;
__PACKAGE__->meta->make_immutable;

1;