package TestCoverage::Foobar;

use strict;
use warnings;

use Moose;

has 'attr' => (
    is => 'rw',
    isa => 'Str',
);

sub change {
    my $self = shift;
    $self->attr( $self->attr x 2 );
}

sub BUILD {
    my $self = shift;

    $self->attr( 'foobar' );
}

1;
