This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
my $ua = Mojo::UserAgent->new(max_response_size => 0); | |
my $tx = $ua->build_tx( | |
POST => 'https://api.openai.com/v1/chat/completions', | |
+{ | |
Authorization => "Bearer $ENV{OPENAI_API_KEY}", | |
}, | |
json => { | |
model => "gpt-3.5-turbo", | |
stream => \1, | |
messages => [ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
package Example::Schema::ResultSet::Todo; | |
use Example::Syntax; | |
use base 'Example::Schema::ResultSet'; | |
sub status($self, $status = undef) { | |
$self->{attrs}{status} = $status if defined $status; | |
return $self->{attrs}{status}; | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
package Example::Schema::ResultSet::Todo; | |
use Example::Syntax; | |
use base 'Example::Schema::ResultSet'; | |
__PACKAGE__->mk_group_accessors('simple' => qw/status/); | |
sub available($self) { | |
return $self->search_rs({status=>{'!='=>'archived'}}); | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
form_for 'contact', +{ | |
url=>sub($self, $contact) { $contact->in_storage ? path('create') : path('update', [$contact]) } | |
}, sub ($self, $fb, $contact) { | |
form_for 'contact', +{ | |
create_url => sub($self, $contact) { path('create') }, | |
update_url => sub($self, $contact) { path('update', [$contact]) }, | |
}, sub ($self, $fb, $contact) { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{ | |
package MyClass::Moose; | |
use Moose; | |
has 'attribute1' => (is => 'ro'); | |
has 'attribute2' => (is => 'ro'); | |
has 'attribute3' => (is => 'ro'); | |
MyClass::Moose->meta->make_immutable; | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use Moose; | |
use MooseX::MethodAttributes; | |
use Example::Syntax; | |
class Example::Controller::Account :isa(Example::Controller) { | |
sub root :At('$path_end/...') Via('../protected') ($self, $c, $user) { | |
$c->action->next($user->account); | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use warnings; | |
use strict; | |
use DBI; | |
use AI::Embedding; | |
my $dbh = DBI->connect( | |
'DBI:Pg:dbname=[DB]', | |
'[USER]', | |
'[PASSWORD', |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
-- Assuming you already have a database named 'my_database' | |
CREATE TABLE colors ( | |
id SERIAL PRIMARY KEY, | |
name VARCHAR(100), | |
color_vector VECTOR(3) | |
); | |
INSERT INTO colors (name, color_vector) VALUES | |
-- Primary colors |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
package Camel::Controller::Dialog; | |
use Moose; | |
use MooseX::MethodAttributes; | |
use Camel::Syntax; | |
use Types::Standard qw/Int/; | |
extends 'Camel::Controller'; | |
sub root :Via('../private') At('dialog/...') ($self, $c, $user) { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
package Camel::PSGI; | |
use Camel::Syntax; | |
use Net::Async::HTTP::Server::PSGI; | |
use IO::Async::Loop; | |
use IO::Async::Process; | |
use Module::Runtime 'use_module'; | |
die "ALPACA_HOME environment variable not set" unless $ENV{ALPACA_HOME}; |
NewerOlder