swaggboi/PostText
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Implement shortened method names and create aliases to old names

Browse Source
This commit is contained in:
swaggboi 2022-09-02 20:40:26 -04:00
parent 2054de053e
commit 29a11f9886
2 changed files with 47 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lib/PostText/Model/Remark.pm
View File

@ -14,13 +14,13 @@ sub new($class, $pg, $pg_reference) {
}, $class }, $class
} }
sub get_remarks_by_thread_id($self, $thread_id, $this_page = 1) { sub by_page_for($self, $thread_id, $this_page = 1) {
my $date_format = %$self{'date_format'}; my $date_format = %$self{'date_format'};
my $row_count = %$self{'remarks_per_page'}; my $row_count = %$self{'remarks_per_page'};
my $offset = ($this_page - 1) * $row_count; my $offset = ($this_page - 1) * $row_count;
my @data = ($date_format, $thread_id, $row_count, $offset); my @data = ($date_format, $thread_id, $row_count, $offset);
$self->pg->db->query(<<~'END_SQL', @data)->hashes(); $self->pg->db->query(<<~'END_SQL', @data)->hashes;
SELECT remark_id AS id, SELECT remark_id AS id,
TO_CHAR(remark_date, ?) AS date, TO_CHAR(remark_date, ?) AS date,
remark_author AS author, remark_author AS author,
@ -33,12 +33,15 @@ sub get_remarks_by_thread_id($self, $thread_id, $this_page = 1) {
END_SQL END_SQL
} }
sub remarks_per_page($self, $value = undef) { *get_remarks_by_thread_id = \&by_page_for;
sub per_page($self, $value = undef) {
$self->{'remarks_per_page'} = $value // $self->{'remarks_per_page'} $self->{'remarks_per_page'} = $value // $self->{'remarks_per_page'}
} }
sub create_remark($self, $thread_id, $author, $body, $hidden = 0, $flagged = 0) *remarks_per_page = \&per_page;
{
sub create($self, $thread_id, $author, $body, $hidden = 0, $flagged = 0) {
my @data = ($thread_id, $author, $body, $hidden, $flagged); my @data = ($thread_id, $author, $body, $hidden, $flagged);
$self->pg->db->query(<<~'END_SQL', @data); $self->pg->db->query(<<~'END_SQL', @data);
@ -53,7 +56,9 @@ sub create_remark($self, $thread_id, $author, $body, $hidden = 0, $flagged = 0)
END_SQL END_SQL
} }
sub get_remark_count_by_thread_id($self, $thread_id) { *create_remark = \&create;
sub count_for($self, $thread_id) {
$self->pg->db->query(<<~'END_SQL', $thread_id)->hash->{'count'} $self->pg->db->query(<<~'END_SQL', $thread_id)->hash->{'count'}
SELECT COUNT(*) AS count SELECT COUNT(*) AS count
FROM remarks FROM remarks
@ -62,8 +67,10 @@ sub get_remark_count_by_thread_id($self, $thread_id) {
END_SQL END_SQL
} }
sub get_last_page_by_thread_id($self, $thread_id) { *get_remark_count_by_thread_id = \&count_for;
my $remark_count = $self->get_remark_count_by_thread_id($thread_id);
sub last_page_for($self, $thread_id) {
my $remark_count = $self->count_for($thread_id);
my $last_page = int($remark_count / $self->{'remarks_per_page'}); my $last_page = int($remark_count / $self->{'remarks_per_page'});
# Add a page for 'remainder' posts # Add a page for 'remainder' posts
@ -72,10 +79,12 @@ sub get_last_page_by_thread_id($self, $thread_id) {
$last_page; $last_page;
} }
sub last_remark($self, $thread_id) { *get_last_page_by_thread_id = \&last_page_for;
sub last_remark_for($self, $thread_id) {
my $date_format = $self->{'date_format'}; my $date_format = $self->{'date_format'};
$self->pg->db->query(<<~'END_SQL', $date_format, $thread_id)->hash(); $self->pg->db->query(<<~'END_SQL', $date_format, $thread_id)->hash;
SELECT remark_id AS id, SELECT remark_id AS id,
TO_CHAR(remark_date, ?) AS date, TO_CHAR(remark_date, ?) AS date,
remark_author AS author, remark_author AS author,
@ -87,4 +96,6 @@ sub last_remark($self, $thread_id) {
END_SQL END_SQL
} }
*last_remark = \&last_remark_for;
1; 1;

38
lib/PostText/Model/Thread.pm
View File

@ -14,7 +14,7 @@ sub new($class, $pg, $pg_reference) {
}, $class }, $class
} }
sub create_thread($self, $author, $title, $body, $hidden = 0, $flagged = 0) { sub create($self, $author, $title, $body, $hidden = 0, $flagged = 0) {
my @data = ($author, $title, $body, $hidden, $flagged); my @data = ($author, $title, $body, $hidden, $flagged);
$self->pg->db->query(<<~'END_SQL', @data); $self->pg->db->query(<<~'END_SQL', @data);
@ -29,8 +29,10 @@ sub create_thread($self, $author, $title, $body, $hidden = 0, $flagged = 0) {
END_SQL END_SQL
} }
sub get_all_threads($self) { *create_thread = \&create;
$self->pg->db->query(<<~'END_SQL', %$self{'date_format'})->hashes()
sub dump_all($self) {
$self->pg->db->query(<<~'END_SQL', %$self{'date_format'})->hashes
SELECT thread_id AS id, SELECT thread_id AS id,
TO_CHAR(thread_date, ?) AS date, TO_CHAR(thread_date, ?) AS date,
thread_author AS author, thread_author AS author,
@ -42,13 +44,15 @@ sub get_all_threads($self) {
END_SQL END_SQL
} }
sub get_threads_by_page($self, $this_page = 1) { *get_all_threads = \&dump_all;
sub by_page($self, $this_page = 1) {
my $date_format = %$self{'date_format'}; my $date_format = %$self{'date_format'};
my $row_count = $self->{'threads_per_page'}; my $row_count = $self->{'threads_per_page'};
my $offset = ($this_page - 1) * $row_count; my $offset = ($this_page - 1) * $row_count;
$self->pg->db $self->pg->db
->query(<<~'END_SQL', $date_format, $row_count, $offset)->hashes(); ->query(<<~'END_SQL', $date_format, $row_count, $offset)->hashes;
SELECT thread_id AS id, SELECT thread_id AS id,
TO_CHAR(thread_date, ?) AS date, TO_CHAR(thread_date, ?) AS date,
thread_author AS author, thread_author AS author,
@ -61,12 +65,16 @@ sub get_threads_by_page($self, $this_page = 1) {
END_SQL END_SQL
} }
sub threads_per_page($self, $value = undef) { *get_threads_by_page = \&by_page;
$self->{'threads_per_page'} = $value // $self->{'threads_per_page'};
sub per_page($self, $value = undef) {
$self->{'threads_per_page'} = $value // $self->{'threads_per_page'}
} }
sub get_last_page($self) { *threads_per_page = \&per_page;
my $thread_count = $self->get_thread_count();
sub last_page($self) {
my $thread_count = $self->count;
my $last_page = int($thread_count / $self->{'threads_per_page'}); my $last_page = int($thread_count / $self->{'threads_per_page'});
# Add a page for 'remainder' posts # Add a page for 'remainder' posts
@ -75,7 +83,9 @@ sub get_last_page($self) {
$last_page; $last_page;
} }
sub get_thread_count($self) { *get_last_page = \&last_page;
sub count($self) {
$self->pg->db->query(<<~'END_SQL')->hash->{'count'} $self->pg->db->query(<<~'END_SQL')->hash->{'count'}
SELECT COUNT(*) AS count SELECT COUNT(*) AS count
FROM threads FROM threads
@ -83,10 +93,12 @@ sub get_thread_count($self) {
END_SQL END_SQL
} }
sub get_thread_by_id($self, $thread_id) { *get_thread_count = \&count;
sub by_id($self, $thread_id) {
my $date_format = %$self{'date_format'}; my $date_format = %$self{'date_format'};
$self->pg->db->query(<<~'END_SQL', $date_format, $thread_id)->hash(); $self->pg->db->query(<<~'END_SQL', $date_format, $thread_id)->hash;
SELECT thread_id AS id, SELECT thread_id AS id,
TO_CHAR(thread_date, ?) AS date, TO_CHAR(thread_date, ?) AS date,
thread_author AS author, thread_author AS author,
@ -97,4 +109,6 @@ sub get_thread_by_id($self, $thread_id) {
END_SQL END_SQL
} }
*get_thread_by_id = \&by_id;
1; 1;