File Coverage

blib/lib/PDF/Make/Builder/Form/Field/Button.pm

Criterion	Covered	Total	%
statement	27	29	93.1
branch	6	8	75.0
condition	6	15	40.0
subroutine	7	7	100.0
pod	0	1	0.0
total	46	60	76.6

package PDF::Make::Builder::Form::Field::Button;
use strict;
use warnings;
use Object::Proto;

BEGIN {
    Object::Proto::define('PDF::Make::Builder::Form::Field::Button',
        extends => 'PDF::Make::Builder::Form::Field',
        'caption:Str',
        'submit_url:Str',
        'url:Str',
        'is_reset:Bool:default(0)',
        'javascript:Str',
    );
    Object::Proto::import_accessors('PDF::Make::Builder::Form::Field::Button');
}

sub BUILD {
    my ($self) = @_;
    $self->h(28);
    $self->border_colour('#2c3e50');
    $self->bg_colour('#ecf0f1');
}

sub _draws_own_chrome { 1 }

sub _create_field {
    my ($self, $doc, $name, $fx, $fy, $fw, $fh) = @_;
    my $cap = $self->caption // $self->label // $name;
    my $field = PDF::Make::FieldPtr::button($doc, $name, $fx, $fy, $fw, $fh, $cap);

    my $submit = submit_url $self;
    my $uri    = url $self;
    my $rst    = is_reset $self;
    my $js     = javascript $self;

    if (defined $uri && length $uri) {
        $field->set_uri_action($uri);
    } elsif (defined $submit && length $submit) {
        $field->set_submit_url($submit);
    } elsif ($rst) {
        $field->set_reset_action;
    } elsif (defined $js && length $js) {
        $field->set_javascript($js);
    }

    return $field;
}

1;

__END__