#!/usr/bin/perl

use strict;
use warnings;
use lib qw(lib);

use TestClass;

my $obj = TestClass->new;

if ( $obj->DOES( 'FileRole' ) ) {
    my @lines = $obj->readfile({ file => $0 });

    print @lines;
}