] def
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Now calculate mm and points
/mm { 72 mul 25.4 div}  def
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

#!/usr/bin/perl -w
# $Id: calculate_cpr.pl,v 1.1 2006/02/21 21:06:31 jonasbn Exp $
use strict;
use Business::DK::CPR qw(calculate);

:-consult(util/findthird).
:-consult(util/findfifth).
:-consult(util/calculateinterval).
% chord_gender( +Chord, -Gender)
%  Chord - chord we're interested in its gender

package mcoder::array::calculated;
our $VERSION = '0.01';
use strict;

package mcoder::calculated;
our $VERSION = '0.03';
use strict;

# procedural way
use strict;
use SpringGraph qw(calculate_graph draw_graph);
warn "drawing image - procedural\n";
my %node = (

:-consult(core/interval).
:-consult(core/note).
% calculate_pitch( +Note1, +Interval, -Note2)
%  Note1 - Base note.
%  Interval - Given interval.

require Digest::MD5;
#-----------------------------------------------------------
# calculate md5sum of file
# requires:  -
# parameter: file

     ($] >= 5.005) ? (
          'AUTHOR'   => 'Adam Kennedy (cpan@ali.as)',
          'ABSTRACT' => 'Calculate windows/subsets/pages of arrays',
     ) : (),
);

  my $gd = shift;
  # and draw a cross through the box
  my ($x1,$y1,$x2,$y2) = $self->calculate_boundaries(@_);
  my $fg = $self->fgcolor;
  $gd->line($x1,$y1,$x2,$y2,$fg);

    VERSION_FROM => 'lib/Business/TPGPost.pm', # finds \$VERSION
    AUTHOR       => 'M. Blom (blom@cpan.org)',
    ABSTRACT     => 'Calculate Dutch (TPG Post) shipping costs',
    PREREQ_PM    => {
                     Business::TNTPost::NL      => 0

WriteMakefile(
  'NAME'          => 'Win32::Uptime',
  'ABSTRACT'      => 'Calculate uptime for Win32 systems',
  'AUTHOR'        => 'Serguei Trouchelle <stro@railways.dp.ua>',
  'VERSION_FROM'  => 'Uptime.pm',

=head1 SYNOPSIS
  use base 'Spreadsheet::Engine::Fn::investment';
  sub calculate { ... }
=head1 DESCRIPTION
This provides a base class for spreadsheet functions that calculate

sub result {
  my $self = shift;
  my $result = $self->calculate ? 1 : 0;
  return Spreadsheet::Engine::Value->new(type => 'nl', value => $result);
}

#
# Perl script to calculate the min, max, and avg of a list of numbers.
#
sub usage {

use Acme::Mahjong::Hand;
use Acme::Mahjong::Deck;
requires qw(calculate);
no Moose;
sub hand_create {

    VERSION_FROM => 'lib/Date/Chinese.pm', # finds $VERSION
    AUTHOR       => 'Rich Bowen (rbowen@rcbowen.com)',
    ABSTRACT     => 'Calculate dates in the Chinese calendar',
    PREREQ_PM    => {
        Test::More => 0,

# This package contains tax related functions:
#
# calculate_tax - calculates tax on subtotal
# apply_tax - sets $value to the tax value for the subtotal
# extract_tax - sets $value to the tax value on a tax-included subtotal

@ISA = qw(Exporter);
@EXPORT_OK = qw(
     calculate_birthday calculate_week calculate_month 
     _countback _266days _40weeks
);

@ISA = qw(Exporter);
@EXPORT_OK = qw(
     calculate_birthday calculate_week calculate_month 
     _countback _266days _40weeks
);

sub singleTag { 1 }
=head2 I<$maths>->compile( )
  Modifies a template with the data calculated.
=cut
sub compile {

          my $field = $self->get_field(@event);
          my $ref = { @data }->{ $field };
          return ( $type, $self->calculate_sizes($ref), @data );
     } else {
          my @fields = $self->get_fields(@event);

:-consult(core/interval).
:-consult(core/note).
% calculate_interval( +Note1, +Note2, -Interval)
%  Note1 - First note.
%  Note2 - Second note.

use Bank::RMD;
my $calc = new Bank::RMD;
my $rmd = $calc->calculate( balance => '50000', ownerAge => 74, beneficiaryAge => 56 );
print "Calculating for a 74 year old owner and a 56 year old beneficiary with \$50,000 balance..\n\n";
print "Using return values:";

use Bank::RMD;
my $calc = new Bank::RMD;
my $rmd = $calc->calculate( balance => '50000', ownerAge => 74, beneficiaryAge => 56 );
print "Calculating for a 74 year old owner and a 56 year old beneficiary with \$50,000 balance..\n\n";
print "Using return values:";