Tk-Clock

 view release on metacpan or  search on metacpan

Clock.pm  view on Meta::CPAN

use strict;
use warnings;

our $VERSION = "0.45";

use Carp;

use Tk;
use Tk::Widget;
use Tk::Derived;
use Tk::Canvas;

use vars qw( @ISA );
@ISA = qw/Tk::Derived Tk::Canvas/;

Construct Tk::Widget "Clock";

my $ana_base = 73;	# Size base for 100%

my %def_config = (
    timeZone	=> "",
    useLocale	=> "C",
    backDrop	=> "",

Clock.pm  view on Meta::CPAN

There's no check if either format will fit in the given space.

=head1 TODO

* Full support for multi-line date- and time-formats with auto-resize.
* Countdown clock API, incl action when done.
* Better docs for the attributes

=head1 SEE ALSO

Tk(3), Tk::Canvas(3), Tk::Widget(3), Tk::Derived(3)

=head1 AUTHOR

H.Merijn Brand <h.m.brand@xs4all.nl>

Thanks to Larry Wall for inventing perl.
Thanks to Nick Ing-Simmons for providing perlTk.
Thanks to Achim Bohnet for introducing me to OO (and converting
    the basics of my clock.pl to Tk::Clock.pm).
Thanks to Sriram Srinivasan for understanding OO though his Panther book.

META.json  view on Meta::CPAN

            "Encode" : "3.21",
            "Tk" : "804.036"
         },
         "requires" : {
            "POSIX" : "0",
            "Tk" : "402.000",
            "Tk::Canvas" : "0",
            "perl" : "5.006",
            "Carp" : "0",
            "Tk::Widget" : "0",
            "Tk::Derived" : "0",
            "Encode" : "0"
         }
      }
   },
   "abstract" : "Clock widget with analog and digital display",
   "generated_by" : "Author",
   "dynamic_config" : 1,
   "resources" : {
      "bugtracker" : {
         "web" : "https://github.com/Tux/Tk-Clock/issues"

META.yml  view on Meta::CPAN

  Test::More: '1.302219'
  Tk: '804.036'
requires: 
  Carp: 0
  Encode: 0
  POSIX: 0
  Test::More: '0.90'
  Test::NoWarnings: 0
  Tk: '402.000'
  Tk::Canvas: 0
  Tk::Derived: 0
  Tk::Widget: 0
  perl: '5.006'
resources: 
  bugtracker: https://github.com/Tux/Tk-Clock/issues
  license: http://dev.perl.org/licenses/
  repository: https://github.com/Tux/Tk-Clock
version: '0.45'

Makefile.PL  view on Meta::CPAN

my %wm = (
    NAME	  =>   "Tk::Clock",
    DISTNAME	  =>   "Tk-Clock",
    AUTHOR        =>   "H.Merijn Brand <h.m.brand\@xs4all.nl>",
    VERSION_FROM  =>   "Clock.pm",
    ABSTRACT_FROM =>   "Clock.pm",

    PREREQ_PM	  => { "Tk"			=> "402.000",
		       "Tk::Canvas"		=> 0,
		       "Tk::Derived"		=> 0,
		       "Tk::Widget"		=> 0,
		       "Carp"			=> 0,
		       "Test::More"		=> 0.90,
		       "Test::NoWarnings"	=> 0,
		       "Encode"			=> 0,
		       "POSIX"			=> 0,
		       },

    dist	  => { COMPRESS	=> "gzip -9f",
		       SUFFIX	=> ".gz",

cpanfile  view on Meta::CPAN

requires   "Carp";
requires   "Encode";
requires   "POSIX";
requires   "Tk"                       => "402.000";
requires   "Tk::Canvas";
requires   "Tk::Derived";
requires   "Tk::Widget";

recommends "Encode"                   => "3.21";
recommends "Tk"                       => "804.036";

on "configure" => sub {
    requires   "ExtUtils::MakeMaker";

    recommends "ExtUtils::MakeMaker"      => "7.22";