package Padre::Plugin::Moose::Attribute;

use namespace::clean;
use Moose;

has 'name'     => ( is => 'rw', isa => 'Str' );
has 'type'     => ( is => 'rw', isa => 'Str', default => 'Str' );
has 'access'   => ( is => 'rw', isa => 'Str', default => 'rw' );
has 'trigger'  => ( is => 'rw', isa => 'Str' );
has 'required' => ( is => 'rw', isa => 'Bool' );

sub to_code {
	my $self = shift;
	my $comment = shift;

	my $code = '';

	$code = "\nhas '". $self->name . "' => (\n";
	$code .= ("    is  => '" . $self->access . "',\n") if defined $self->access;
	$code .= ("    isa => '" . $self->type . "',\n") if defined $self->type;
	$code .= ("trigger => " . $self->trigger . ",\n") if $self->trigger;
	$code .= ("required => 1,\n") if $self->required;
	$code .= ");\n\n";

	return $code;
}

__PACKAGE__->meta->make_immutable;

1;