challenge-096/lance-wicks/perl/lib/pw96.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

package pw96;

use strict;
use warnings;

use Moo;

sub reverse_words {
    my ($self, $phrase) = @_;
    
    my @words = split ' ', $phrase;
    return join ' ', reverse @words;
}


1;