package Null::Order; use base 'Null::Object'; sub total { 0 } 1;