view release on metacpan or  search on metacpan

lib/App/WhatTimeIsIt.pm  view on Meta::CPAN

use Time::Local ();
use POSIX ();
use Config::CmdRC '.what_time_is_it';

our $VERSION = '0.01';

my $FORMAT = "%a, %d %b %Y %H:%M";

sub new {
    my ($class, $opt) = @_;
    bless { opt => $opt } => $class;
}

sub opt { $_[0]->{opt} }

sub run {
    my $self = shift;

    my $format = $self->opt->{'--format'} || RC->{format} || $FORMAT;
    my $out    = ($self->opt->{'--stderr'} || RC->{stderr}) ? *STDERR : *STDOUT;