fork download
copy 
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4.  
  5. package C
  6. {
  7.     use Scalar::Util;
  8.     sub new { bless {} }
  9.     use overload
  10.         '.' => sub {
  11.             my ($self, $value, $swapped) = @_;
  12.             die unless $swapped;
  13.             die unless Scalar::Util::looks_like_number($value);
  14.             $self->{value} = $value;
  15.             return $self;
  16.         },
  17.         '""' => sub {
  18.             my $self = shift;
  19.             return "$self->{value} Celsius";
  20.         }
  21. }
  22.  
  23. sub C # This can be exported by the C module.
  24. {
  25.     die if @_;
  26.     C->new() 
  27. }
  28.  
  29. my $T;
  30. eval { $T = C . 25 }; # Dies
  31. eval { $T = C .25; }; # Dies
  32. $T = 25 .C; # Makes a C object with the value 5
  33. print $T;
Success #stdin #stdout 0.01s 6308KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
25 Celsius
https://ideone.com/CxyPBw
language:
Perl (perl 5.28.1)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!