package Foorum::ResultSet::Share;

use strict;
use warnings;
our $VERSION = '1.001000';
use base 'DBIx::Class::ResultSet';

sub del_or_create {
    my ( $self, $cond ) = @_;

    my $count = $self->count($cond);
    if ($count) {
        $self->search($cond)->delete;
        return 0;
    } else {
        $cond->{time} = time();
        $self->create($cond);
        return 1;
    }
}

1;