#!/usr/bin/env perl use strict; use warnings; { package Entry; use Moose::Role 'requires'; requires 'get_name'; requires 'get_size'; } { package File; use Moose; use Perl6::Say; with 'Entry'; has name => ( i…