package OurClass;

=pod

=cut

use Moose;
has arg1 => (is => 'rw');
has arg2 => (is => 'rw');
sub printargs {
    my $self = shift;
    say $self->$_ for qw/arg1 arg2/;
}
no Moose;