Test::MockFileSys Prototype

[toddr]

my $mock_fs = Test::MockFileSys->new;
$mock_fs->file('/foo/bar'); # push $self->{foo}->@*, Test::MockFile->file('/foo/bar');
$mock_fs->file('/foo/baz');
$mock_fs->dir('/foo');
$mock_fs->file('/foo/bar', '...'); # Retrieves existing object or creates new if missing.

[atoomic]

then we could have

my $fs = Test::MockFileSys->new;
$fs->file( '/a/b/c' );

$fs->file( '/a/b/c' )->write( q[content] );
...
$fs->file( '/a/b/c' )->read;
$fs->file( '/a/b/c' )->unlink;

[toddr]

then we could have

$fs->file( '/a/b/c' )->unlink;

I think there are limits here.... how is that better than
unlink '/a/b/c'

[toddr]

# Grabs existing objects?
my $fs = Test::MockFileSys->new; # Singleton Only one at a time.

# Just mock not there
$fs->dir('/foo');
$fs->file('/foo/bar');

# make the thing and set perms, etc.
$fs->write_file('/foo/bar', "", { perms => 0755 });
$fs->symlink('data', '/foo/link');
$fs->mkdir( '/foo', 0755); # Auto mocks in strict mode.

# automock in strict mode.
symlink('data', '/foo/link');
mkdir '/foo', 0755;
chmod 0755, '/foo/bar';
unlink '/foo/link';

$fs->overwrite('/foo/bar', "new stuff"); # Also a getter with no 2nd arg.

# Get the object
$fs->path('/foo/bar');

# unmock the thing.
$fs->unmock('/foo/bar');