The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package FBP::RichTextCtrl;

use Mouse;

our $VERSION = '0.41';

extends 'FBP::Control';

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

has style => (
	is       => 'ro',
	isa      => 'Str',
);

has maxlength => (
	is       => 'ro',
	isa      => 'Int',
	required => 1,
	default  => 0,
);

has OnText => (
	is  => 'ro',
	isa => 'Str',
);

has OnTextEnter => (
	is  => 'ro',
	isa => 'Str',
);

has OnTextURL => (
	is  => 'ro',
	isa => 'Str',
);

has OnTextMaxLen => (
	is  => 'ro',
	isa => 'Str',
);

no Mouse;
__PACKAGE__->meta->make_immutable;

1;