show how to combine constants

mojolicious · Feb 5, 2017 · 1128def · 1128def
1 parent 233712e
commit 1128def
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/lib/Mojo/File.pm b/lib/Mojo/File.pm
@@ -335,6 +335,10 @@ directory.
 
 Open file with L<IO::File>.
 
+  # Combine "fcntl.h" constants
+  use Fcntl qw(O_CREAT O_EXCL O_RDWR);
+  my $handle = Mojo::File->new('/tmp/test.pl')->open(O_RDWR | O_CREAT | O_EXCL);
+
 =head2 remove_tree
 
   $path = $path->remove_tree;