… | |
… | |
175 | |
175 | |
176 | use base "Exporter"; |
176 | use base "Exporter"; |
177 | |
177 | |
178 | our @AE_REQ = qw( |
178 | our @AE_REQ = qw( |
179 | ae_load ae_open ae_close ae_read ae_write ae_stat ae_lstat |
179 | ae_load ae_open ae_close ae_read ae_write ae_stat ae_lstat |
180 | ae_symlink ae_link ae_rename ae_unlink |
180 | ae_link ae_symlink ae_readlink ae_rename ae_unlink |
181 | ae_mkdir ae_rmdir |
181 | ae_mkdir ae_rmdir ae_readdir |
182 | ); |
182 | ); |
183 | *EXPORT = \@AE_REQ; |
183 | *EXPORT = \@AE_REQ; |
184 | our @FLAGS = qw(O_RDONLY O_WRONLY O_RDWR O_CREAT O_EXCL O_TRUNC O_APPEND); |
184 | our @FLAGS = qw(O_RDONLY O_WRONLY O_RDWR O_CREAT O_EXCL O_TRUNC O_APPEND); |
185 | *EXPORT_OK = \@FLAGS; |
185 | *EXPORT_OK = \@FLAGS; |
186 | our %EXPORT_TAGS = (flags => \@FLAGS, ae => \@AE_REQ); |
186 | our %EXPORT_TAGS = (flags => \@FLAGS, ae => \@AE_REQ); |
… | |
… | |
317 | =item ae_symlink $oldpath, $newpath, $cb->($success) |
317 | =item ae_symlink $oldpath, $newpath, $cb->($success) |
318 | |
318 | |
319 | Calls C<symlink> on the paths. If an error occurs, passes I<no> arguments, |
319 | Calls C<symlink> on the paths. If an error occurs, passes I<no> arguments, |
320 | otherwise passes a true value. |
320 | otherwise passes a true value. |
321 | |
321 | |
|
|
322 | =item ae_readlink $path, $cb->($target) |
|
|
323 | |
|
|
324 | Calls C<readlink> on the paths. If an error occurs, passes I<no> arguments, |
|
|
325 | otherwise passes the link target string. |
|
|
326 | |
322 | =item ae_rename $oldpath, $newpath, $cb->($success) |
327 | =item ae_rename $oldpath, $newpath, $cb->($success) |
323 | |
328 | |
324 | Calls C<rename> on the paths. If an error occurs, passes I<no> arguments, |
329 | Calls C<rename> on the paths. If an error occurs, passes I<no> arguments, |
325 | otherwise passes a true value. |
330 | otherwise passes a true value. |
326 | |
331 | |