gistfile1.pl

use v6;

class Db {
	has Str $.name is rw;
	has Int $.lvl is rw = 0;

	has @!tb is rw;
	has $!path = %*ENV<HOME>~'/.db';
	method op( Str $dbname ){
		if $dbname ~~ any( dir $!path ) {
			@!tb = dir $!path~'/'~$dbname;
			say "Database $dbname opened.";
			warn "Database is empty...\n" if dir $!path~'/'~$dbname;
			return self.new( :name($dbname), :lvl(0) );
	} else {
			say "Warning: there is not database named $dbname\nYou should use .create\n";
			return 0;
		}
	}
}

my $obj = Db.op('test');
say $obj.name;