Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / Pastel / FontMetrics.pm

package Pastel::FontMetrics;\r
@ISA = qw (Pastel::Mixin::Mixin);\r
use Pastel::Mixin::Mixin;\r
use Carp;\r
use strict;\r
\r
{\r
    my $id;\r
    sub _id { return $id++;}\r
}\r
\r
sub new {\r
    my $class = shift;\r
    my $self = {};\r
    bless $self, ref($class) || $class;\r
    $self->_init(@_);\r
    return $self;\r
}\r
\r
sub _init {\r
     my ($self, @args) = @_;\r
\r
     if ( @args >  4 ){\r
	 croak "Wrong number of parameters in Pastel::FonMetrics\n";\r
     }\r
\r
     my ( $file, $font, $platform) = $self->_rearrange(["FILE", "FONT",\r
							"PLATFORM"], @args);\r
\r
     if ( defined ( $file) ){\r
	 $self->{filename} = $file;\r
	     \r
	 \r