hogepiyo.pm

    my $db = Intern::Diary::DBI::Factory->new;
    my $dbh = $db->dbh('intern_diary');

    my $sth = $dbh->prepare(q[
        INSERT INTO entry
        SET
          user_id = ?,
          title   = ?,
          content = ?,
          draft   = ?,
          created = ?,
          updated = ?
    ]);
    $sth->execute(
        $user->user_id,
        $title,
        $content,
        $draft,
        DateTime::Format::MySQL->format_datetime($created),
        DateTime::Format::MySQL->format_datetime($updated),
    );

    my $entry_id = $sth->{mysql_insertid};