package OpenGL::Sandbox::MMap;
use strict;
use warnings;
use File::Map 'map_file';
 
# ABSTRACT: Wrapper around a memory-mapped scalar ref
our $VERSION = '0.120'; # VERSION
 
sub size { length(${(shift)}) }
 
sub new {
        my ($class, $fname)= @_;
        my $map;
        my $self= bless \$map, $class;
        map_file $map, $fname;
        $self;
}
 
1;