package Script::Singleton;

use strict;
use warnings;

use Cwd qw(abs_path);
use IPC::Shareable;

our $VERSION = '0.03';

sub import {
    my ($class, %params) = @_;

    $params{glue} = abs_path((caller())[1]) if ! exists $params{glue};

    IPC::Shareable->singleton($params{glue}, $params{warn});
}

sub __placeholder {}

1;