package TestApp::C::Cache;

use strict;
use base 'Catalyst::Base';

sub auto : Private {
    my ( $self, $c ) = @_;
    
    $c->config->{counter}++;
    
    return 1;
}

sub count : Local {
    my ( $self, $c, $expires ) = @_;
    
    $c->cache_page( $expires );
    
    $c->res->output( $c->config->{counter} );
}

sub auto_count : Local {
    my ( $self, $c ) = @_;
    
    $c->res->output( $c->config->{counter} );
}

sub another_auto_count : Local {
    my ( $self, $c ) = @_;
    
    $c->forward( 'auto_count' );
}

sub clear_cache : Local {
    my ( $self, $c ) = @_;
    
    $c->clear_cached_page( '/cache/count' );
    
    $c->res->output( 'ok' );
}

sub clear_cache_regex : Local {
    my ( $self, $c ) = @_;
    
    $c->clear_cached_page( '/cache/.*' );
    
    $c->res->output( 'ok' );
}

sub test_datetime : Local {
    my ( $self, $c ) = @_;

    require DateTime;

    my $dt = DateTime->new( day => 24, month => 1, year => 2026, time_zone => 'UTC' );

    $c->cache_page( $dt );

    $c->res->output( $c->config->{counter} );
}

sub extra_options : Local {
    my ( $self, $c ) = @_;

    $c->cache_page(
        last_modified   => time,
        expires         => 60,
        cache_seconds   => 20,
    );

    $c->res->output( $c->config->{counter} );
}

sub no_cache : Local {
    my ( $self, $c ) = @_;

    $c->cache_page(
        last_modified   => time,
        expires         => 0,
        cache_seconds   => 20,
    );

    $c->res->output( $c->config->{counter} );
}

1;