IO::File::WithFilename3pm

Usage

    use IO::File::WithFilename;
    my $fh = IO::File::WithFilename->new('../movies/kin-dza-dza.ogg', O_RDONLY);
    print $fh->filename, "\n";
    print "$fh\n"; # same as above

Overview

This module does everything that "IO::File" does, but implements "filename" method, that "File::Temp" objects have. It lets you write the code that is ignorant of what classes of objects it works with.

If you want to check if it is safe to call "filename" method, you are recommended to call "can" method rather than to check an object's inheritance:

    print $obj->filename, "\n" if eval { $obj->can('filename') };

Copyright and license

Copyright (C) 2010 by Ivan Fomichev

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.1 or, at your option, any later version of Perl 5 you may have available.