package AppThing;
use lib './lib';
use LEOCHARRE::Class2;
use Smart::Comments '###';
use strict;
__PACKAGE__->make_constructor_init;
__PACKAGE__->make_accessor_setget( 'val' );
__PACKAGE__->make_accessor_setget_aref( 'files' );
sub init {
my $self = shift;
$self->val('ran');
my @files = split(/\n/, `find './' -type f`);
$self->files( \@files );
}
1;
use Test::Simple 'no_plan';
use strict;
use lib './lib';
use Smart::Comments '###';
use Cwd;
ok(1);
my $o = new AppThing;
ok $o;
ok $o->val ;
ok( $o->val eq 'ran' );
my $files = $o->files;
my $fcount = $o->files_count;
ok( $fcount, "files count $fcount");