# 1210614-1.pl
package MyClass {
    use Moose;
    has FileName => (is => 'rw', isa => 'Str', writer => 'SetFileName');
};

package main {
    my $obj = MyClass->new;
    $obj->SetFileName('/foo/bar');
    warn $obj->FileName;
};