respect is => bare

[gitmo/MooseX-FollowPBP.git] / lib / MooseX / FollowPBP / Role / Attribute.pm

diff --git a/lib/MooseX/FollowPBP/Role/Attribute.pm b/lib/MooseX/FollowPBP/Role/Attribute.pm
index db3e385..2b31a66 100644 (file)
--- a/lib/MooseX/FollowPBP/Role/Attribute.pm
+++ b/lib/MooseX/FollowPBP/Role/Attribute.pm
@@ -10,8 +10,9 @@ before _process_options => sub {
     my $name    = shift;
     my $options = shift;
 
-    if ( exists $options->{is}
-        && !( exists $options->{reader} || exists $options->{writer} ) ) {
+    if (   exists $options->{is}
+        && !( exists $options->{reader} || exists $options->{writer} )
+        && $options->{is} ne 'bare' ) {
         my $get;
         my $set;