Perl 6 window manager

gistfile1.txt

#!/usr/bin/env perl6

use v6; 

class Window {
    has $.name;
    has $.class;
}

class WindowManager {
    proto method manage-window(Window $w) { * } 

    multi method manage-window(Window $w ( :class<Firefox> )) {
        say "Managing Firefox";
    }   

    multi method manage-window(Window $w) {
        say "Falling back to default management";
    }

}

my $manager = WindowManager.new;
my $window  = Window.new(:class<Firefox>, :name<Firefox>);
$manager.manage-window($window);