#!/usr/bin/perl
use strict qw(vars);
use warnings;
use English '-no_match_vars';
use Carp;

no warnings 'experimental::smartmatch';
use feature 'switch';

use lib 'lib/';

use OOTest::Out qw(out);

# vererbt
out ("hello world\n");
OOTest::Out::setopt ( 'debug', '1' );
out ("hello world\n");

# als objekt
my $o = OOTest::Out->new();
$o->out2 ("hello world\n");
$o->{'debug'} = '1' ;
$o->out2 ("hello world\n");