It looks like your current code can be used just by removing the writer parameter. It looks, to me, like you are making some checks in SetFileName and then set the parameter using the standard accessor. Thus, something like this should work for you:

use 5.010;

package MyClass {
    use Moose;
    has FileName => (is => 'rw', isa => 'Str');
    sub SetFileName {
        my $self = shift;
        my $arg = shift;
        warn "I am here with $arg";
        $self->FileName($arg) if $arg =~ /foo/;
    };
};

package main {
    my $obj = MyClass->new;
    $obj->SetFileName('/bar/baz');
    say "FileName is: ", $obj->FileName;
    $obj->SetFileName('/foo/bar');
    say "FileName is: ", $obj->FileName;
};
[download]

Though normally, if you want to force use of a custom writer you would change the default writer to start with an underscore to indicate that it should be treated as a private method (Note: treating underscore methods as private is a convention, it is not enforced):

use 5.010;

package MyClass {
    use Moose;
    has FileName => (is => 'rw', isa => 'Str', writer => "_SetFileName
+");
    sub SetFileName {
        my $self = shift;
        my $arg = shift;
        warn "I am here with $arg";
        $self->_SetFileName($arg) if $arg =~ /foo/;
    };
};

package main {
    my $obj = MyClass->new;
    $obj->SetFileName('/bar/baz');
    say "FileName is: ", $obj->FileName;
    $obj->SetFileName('/foo/bar');
    say "FileName is: ", $obj->FileName;
};
[download]

Also note that your custom SetFileName will not be called if FileName is passed to new(). For that you would have to do something in BUILD or else some of the other special methods or such.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.