use Types::Standard qw( Str Maybe );
use Types::Common::String qw( StrLength );

my $Caption      = StrLength[ 1, 2780 ];
my $EmptyStr     = Str->where( q{ $_ eq '' } );
my $MaybeCaption = Maybe->of( $Caption )->plus_coercions( $EmptyStr => q{ undef } );


use Test::More;

ok( $MaybeCaption->check( 'My pic' ), 'Good caption passes type constraint' );
ok( $MaybeCaption->check( undef ), 'Undef passes type constraint' );
ok( ! $MaybeCaption->check( [] ), 'Arrayref fails type constraint' );
is( $MaybeCaption->coerce( '' ), undef, 'Empty string coerced to undef' );