package RFile;

use strict;
use Carp;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;
require DynaLoader;
require AutoLoader;

@ISA = qw(Exporter DynaLoader);
$VERSION = '0.01';

bootstrap RFile $VERSION;


sub new {
    my $class = shift;
    my $self = {
        m => [
    {
        fn => 'Makefile.PL',
        size => 100,
        desc => 'test',
    },
    {
        fn => 'typemap',
        size => 100,
        desc => 'test',
    },
    {
        fn => 'RFile.c',
        size => 100,
        desc => 'test',
    },
        ],
    };

    bless $self, $class;
}

sub dump {
    my ($self, $idx) = @_;
    return RFile::read_st($self->{m}->[$idx]);
}

1;