#!/usr/bin/perl
use warnings;
use strict;

{   package Website::Factory;
    use Moose;

    sub build {
        my ($self, %args) = @_;

        my $type = delete $args{type};
        my $class;
        die "Unknown type '$type'.\n" unless $class = {
            'drupal'    => 'Website::Drupal',
            'wordpress' => 'Website::WordPress',
        }->{$type};

        return $class->new(%args)
    }
}

{   package Website;
    use Moose;
    has path => ( is  => 'ro',
                  isa => 'Str' );
}

{   package Website::Drupal;
    use Moose;
    extends 'Website';
}

{   package Website::WordPress;
    use Moose;
    extends 'Website';
}

my $wf = 'Website::Factory'->new;
my $drupal = $wf->build( type => 'drupal',
                         path => '/index.php' );
use Data::Dumper;
print Dumper($drupal);


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,