package DTF::Transfer; use strict; use warnings; use Moose::Role; has [qw/ input_line dl_base_dir report_file /] => ( is => 'ro', ); sub BUILD {} after 'BUILD' => sub { my $self = shift; die scalar(keys %$self); };