Switch to qw<>

[perl/modules/LaTeX-TikZ.git] / lib / LaTeX / TikZ / Set / Rectangle.pm

diff --git a/lib/LaTeX/TikZ/Set/Rectangle.pm b/lib/LaTeX/TikZ/Set/Rectangle.pm
index 8840254c7e9707b18568bc735eb0ad9b20718279..c6729397418184822e013397211031cb42bf3895 100644 (file)
--- a/lib/LaTeX/TikZ/Set/Rectangle.pm
+++ b/lib/LaTeX/TikZ/Set/Rectangle.pm
@@ -116,7 +116,7 @@ Attributes 'width' and 'height' are required when 'to' was not given
    MSG
    $args{from} = $tc1->coerce($args{from});
    $meta->find_attribute_by_name($_)->type_constraint->assert_valid($args{$_})
-                                                      for qw/from width height/;
+                                                      for qw<from width height>;
    my $p = $args{from}->point;
    $args{to} = LaTeX::TikZ::Point->new(
     x => $p->x + $args{width},
@@ -138,7 +138,7 @@ LaTeX::TikZ::Interface->register(
 
   __PACKAGE__->new(
    from => $p,
-   ($is_relative ? (map +($_ => $q->{$_}), qw/width height/) : (to => $q)),
+   ($is_relative ? (map +($_ => $q->{$_}), qw<width height>) : (to => $q)),
   );
  },
 );
@@ -146,7 +146,7 @@ LaTeX::TikZ::Interface->register(
 LaTeX::TikZ::Functor->default_rule(
  (__PACKAGE__) => sub {
   my ($functor, $set, @args) = @_;
-  $set->new(map { $_ => $set->$_->$functor(@args) } qw/from to/)
+  $set->new(map { $_ => $set->$_->$functor(@args) } qw<from to>)
  }
 );