package TestClass;

use strict;
use warnings;

use Role::Basic 'with';

eval{
  with qw(FileRole);
};


sub new {
    my ($class) = @_;
    
    my $self = bless {}, $class;
    return $self;
}

1;