File Coverage

blib/lib/SimpleFlake.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	0	3	0.0
total	40	43	93.0

package SimpleFlake;
use 5.008001;
use strict;
use warnings;

use Time::HiRes qw(time);
use Math::BigInt lib => 'GMP';
use Bytes::Random::Secure qw(
  random_bytes random_bytes_base64 random_bytes_hex
);

our $VERSION = "0.05";

sub get_random_bits {

    my ( $class, $length ) = @_;

    my $random = Bytes::Random::Secure->new(
        Bits => 64,
        NonBlocking => 1,
    );

    my $return =  Math::BigInt->from_bin( unpack( 'B*', $random->bytes(2) ) );

    return $return;
}

sub get_millisecond_timestamp {

    my $epoch = 946702800;

    my $time = Math::BigInt->new( int( ( time - $epoch ) * 1_000_000 ) );
    return $time;
}

sub get_flake {

    my $self = shift;

    my $timestamp = $self->get_millisecond_timestamp;
    my $random = $self->get_random_bits;

    my $flake = $timestamp->blsft(15);
    $flake->bior($random);

    return substr( $flake->as_hex, 2);
}


1;
__END__