package VFS;

use strict;
use vars qw($VERSION);
use VFS::Filesystem;
use VFS::File;

$VERSION = "0.02";

=head1 NAME

VFS - A virtual filesystem layer for Perl

=head1 SYNOPSIS
	
	Unimplemented.

=head1 DESCRIPTION

An implementation of a virtual file system in Perl. It will allow
creation, reading and writing of files, mounting of systems in other
systems, ...

=cut

sub new {
	my $class = shift;
	my $self = ($#_ == 0) ? { %{ (shift) } } : { @_ };

	return bless $self, $class;
}

1;