The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package TestApp::Component::Mason;

use strict;
use base 'Catalyst::View::Mason';

sub new {
    my $self = shift;

    my $comp_root = TestApp->path_to( 'root', 'src', 'mason' );
    $self->config->{comp_root} = "$comp_root";

    return $self->NEXT::new(@_);
}

1;