lib/Blog/Helper/Post.pm

   1 package Blog::Helper::Post;
   2
   3 use strict;
   4
   5 use base 'Blog::Helper';
   6
   7 sub list {
   8     my ( $self, $args ) = @_;
   9
  10     my $c = Blog->context;
  11
  12     my $posts = $c->model( 'Post' )->manager->list( %$args );
  13
  14     return [
  15         map {
  16             {
  17                 $_->column_value_pairs,
  18                 comment_count => $_->comment_count,
  19                 tags => [ $_->tags ]
  20             }
  21           } @$posts
  22     ];
  23 }
  24
  25 sub list_by_tag {
  26     my ( $self, $args ) = @_;
  27
  28     my $c = Blog->context;
  29
  30     my $tag_id = delete $args->{ tag_id };
  31     my $cond   = {
  32         %$args,
  33         query        => [ 't3.tag_id' => $tag_id ],
  34         with_objects => [ 'post_tag_map' ]
  35     };
  36
  37     return $self->list( $cond );
  38 }
  39
  40 sub pager {
  41     my ( $self, $page ) = @_;
  42
  43     $page = 1 unless $page && $page =~ m/^\d+$/o;
  44
  45     my $c = Blog->context;
  46
  47     return {
  48         count     => $c->model( 'Post' )->count(),
  49         page_size => $c->model( 'Post' )->manager->default_objects_per_page,
  50         page      => $page
  51     };
  52 }
  53
  54 sub recent {
  55     my ( $self, $limit ) = @_;
  56
  57     my $c = Blog->context;
  58
  59     my $posts = $c->model( 'Post' )->manager->recent( $limit || 10 );
  60
  61     return [ map { scalar $_->column_value_pairs } @$posts ];
  62 }
  63
  64 sub newer {
  65     my ( $self, $post ) = @_;
  66
  67     my $c = Blog->context;
  68
  69     my $newer_post = $c->model( 'Post' )->manager->newer( $post->{ addtime } );
  70
  71     return unless $newer_post;
  72
  73     return scalar $newer_post->column_value_pairs;
  74 }
  75
  76 sub older {
  77     my ( $self, $post ) = @_;
  78
  79     my $c = Blog->context;
  80
  81     my $older_post = $c->model( 'Post' )->manager->older( $post->{ addtime } );
  82
  83     return unless $older_post;
  84
  85     return scalar $older_post->column_value_pairs;
  86 }
  87
  88 sub list_by_month {
  89     my ( $self ) = @_;
  90
  91     my $c = Blog->context;
  92
  93     my $oldest = $c->model( 'Post' )->search(
  94         select  => 'addtime',
  95         sort_by => 'addtime ASC',
  96         limit   => 1
  97     );
  98
  99     my $newest = $c->model( 'Post' )->search(
 100         select  => 'addtime',
 101         sort_by => 'addtime DESC',
 102         limit   => 1
 103     );
 104
 105     $oldest = $oldest->[0];
 106     $newest = $newest->[0];
 107
 108     return unless $oldest && $newest;
 109
 110     $oldest = $oldest->addtime;
 111     $newest = $newest->addtime;
 112
 113     my $list = [];
 114     my $dt = $newest;
 115     while ( $dt > $oldest ) {
 116         my $count = $c->model( 'Post' )->manager->get_posts_count(
 117             query => [
 118                 addtime => { gt => $dt->clone->subtract( months => 1 )->epoch },
 119                 addtime => { le => $dt->epoch }
 120             ]
 121         );
 122
 123         push @$list,
 124           {
 125             count      => $count,
 126             year       => $dt->year,
 127             month      => $dt->month,
 128             month_name => $c->helper('Util')->mon2name($dt->month - 1)
 129           }
 130           if $count;
 131
 132         $dt->subtract( months => 1 );
 133     }
 134
 135     return $list;
 136 }
 137
 138 sub archive {
 139     my $self = shift;
 140
 141     my $c = Blog->context;
 142
 143     my $posts = $c->model( 'Post' )->manager->archive( @_ );
 144
 145     return [
 146         map {
 147             {
 148                 $_->column_value_pairs,
 149                 comment_count => $_->comment_count,
 150                 tags => [ $_->tags ]
 151             }
 152           } @$posts
 153     ];
 154 }
 155
 156 =head1 AUTHOR
 157
 158 vti
 159
 160 =head1 LICENSE
 161
 162 This library is free software, you can redistribute it and/or modify
 163 it under the same terms as Perl itself.
 164
 165 =cut
 166
 167 1;