<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!--
This file was generated by Devel::NYTProf version 3.11
-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="Content-Language" content="en-us" />
<title>Profile of /usr/local/lib/perl5/site_perl/5.10.1/darwin-2level/Class/MOP/Class.pm</title>
<link rel="stylesheet" type="text/css" href="style.css" />
<script type="text/javascript" src="js/jquery-min.js"></script>
<script type="text/javascript" src="js/jquery-tablesorter-min.js"></script>
<link rel="stylesheet" type="text/css" href="js/style-tablesorter.css" />
<script type="text/javascript">
// when a column is first clicked on to sort it, use descending order
// XXX doesn't seem to work (and not just because the tablesorter formatSortingOrder() is broken)
$.tablesorter.defaults.sortInitialOrder = "desc";
// add parser through the tablesorter addParser method
$.tablesorter.addParser({
id: 'fmt_time', // name of this parser
is: function(s) {
return false; // return false so this parser is not auto detected
},
format: function(orig) { // format data for normalization
// console.log(orig);
val = orig.replace(/ns/,'');
if (val != orig) { return val / (1000*1000*1000); }
val = orig.replace(/µs/,''); /* XXX use µ ? */
if (val != orig) { return val / (1000*1000); }
var val = orig.replace(/ms/,'');
if (val != orig) { return val / (1000); }
var val = orig.replace(/s/,'');
if (val != orig) { return val; }
if (orig == '0') { return orig; }
console.log('no match for fmt_time of '.concat(orig));
return orig;
},
type: 'numeric' // set type, either numeric or text
});
</script>
</head>
<body >
<div class="header" style="position: relative; overflow-x: hidden; overflow-y: hidden; z-index: 0; ">
<div class="header_back">
<a href="index.html">← Index</a>
</div>
<div class="headerForeground" style="float: left">
<span class="siteTitle">NYTProf Performance Profile</span>
<span class="siteSubtitle">  <span>« <span class="mode_btn mode_btn_selected">block view</span> • <span class="mode_btn"><a href="Class-MOP-Class-pm-line.html">line view</a></span> • <span class="mode_btn"><a href="Class-MOP-Class-pm-sub.html">sub view</a></span> »</span><br />
For 01.HTTP.t
</span>
</div>
<div class="headerForeground" style="float: right; text-align: right">
<span class="siteTitle"> </span>
<span class="siteSubtitle">Run on Tue May 4 15:25:55 2010<br />Reported on Tue May 4 15:26:13 2010</span>
</div>
<div style="position: absolute; left: 0px; top: 0%; width: 100%; height: 101%; z-index: -1; background-color: rgb(17, 136, 255); "></div>
<div style="position: absolute; left: 0px; top: 2%; width: 100%; height: 99%; z-index: -1; background-color: rgb(16, 134, 253); "></div>
<div style="position: absolute; left: 0px; top: 4%; width: 100%; height: 97%; z-index: -1; background-color: rgb(16, 133, 252); "></div>
<div style="position: absolute; left: 0px; top: 6%; width: 100%; height: 95%; z-index: -1; background-color: rgb(15, 131, 250); "></div>
<div style="position: absolute; left: 0px; top: 8%; width: 100%; height: 93%; z-index: -1; background-color: rgb(15, 130, 249); "></div>
<div style="position: absolute; left: 0px; top: 10%; width: 100%; height: 91%; z-index: -1; background-color: rgb(15, 129, 248); "></div>
<div style="position: absolute; left: 0px; top: 12%; width: 100%; height: 89%; z-index: -1; background-color: rgb(14, 127, 246); "></div>
<div style="position: absolute; left: 0px; top: 14%; width: 100%; height: 87%; z-index: -1; background-color: rgb(14, 126, 245); "></div>
<div style="position: absolute; left: 0px; top: 16%; width: 100%; height: 85%; z-index: -1; background-color: rgb(14, 125, 244); "></div>
<div style="position: absolute; left: 0px; top: 18%; width: 100%; height: 83%; z-index: -1; background-color: rgb(13, 123, 242); "></div>
<div style="position: absolute; left: 0px; top: 20%; width: 100%; height: 81%; z-index: -1; background-color: rgb(13, 122, 241); "></div>
<div style="position: absolute; left: 0px; top: 22%; width: 100%; height: 79%; z-index: -1; background-color: rgb(13, 121, 240); "></div>
<div style="position: absolute; left: 0px; top: 24%; width: 100%; height: 77%; z-index: -1; background-color: rgb(12, 119, 238); "></div>
<div style="position: absolute; left: 0px; top: 26%; width: 100%; height: 75%; z-index: -1; background-color: rgb(12, 118, 237); "></div>
<div style="position: absolute; left: 0px; top: 28%; width: 100%; height: 73%; z-index: -1; background-color: rgb(12, 116, 235); "></div>
<div style="position: absolute; left: 0px; top: 30%; width: 100%; height: 71%; z-index: -1; background-color: rgb(11, 115, 234); "></div>
<div style="position: absolute; left: 0px; top: 32%; width: 100%; height: 69%; z-index: -1; background-color: rgb(11, 114, 233); "></div>
<div style="position: absolute; left: 0px; top: 34%; width: 100%; height: 67%; z-index: -1; background-color: rgb(11, 112, 231); "></div>
<div style="position: absolute; left: 0px; top: 36%; width: 100%; height: 65%; z-index: -1; background-color: rgb(10, 111, 230); "></div>
<div style="position: absolute; left: 0px; top: 38%; width: 100%; height: 63%; z-index: -1; background-color: rgb(10, 110, 229); "></div>
<div style="position: absolute; left: 0px; top: 40%; width: 100%; height: 61%; z-index: -1; background-color: rgb(10, 108, 227); "></div>
<div style="position: absolute; left: 0px; top: 42%; width: 100%; height: 59%; z-index: -1; background-color: rgb(9, 107, 226); "></div>
<div style="position: absolute; left: 0px; top: 44%; width: 100%; height: 57%; z-index: -1; background-color: rgb(9, 106, 225); "></div>
<div style="position: absolute; left: 0px; top: 46%; width: 100%; height: 55%; z-index: -1; background-color: rgb(9, 104, 223); "></div>
<div style="position: absolute; left: 0px; top: 48%; width: 100%; height: 53%; z-index: -1; background-color: rgb(8, 103, 222); "></div>
<div style="position: absolute; left: 0px; top: 50%; width: 100%; height: 51%; z-index: -1; background-color: rgb(8, 102, 221); "></div>
<div style="position: absolute; left: 0px; top: 52%; width: 100%; height: 49%; z-index: -1; background-color: rgb(8, 100, 219); "></div>
<div style="position: absolute; left: 0px; top: 54%; width: 100%; height: 47%; z-index: -1; background-color: rgb(7, 99, 218); "></div>
<div style="position: absolute; left: 0px; top: 56%; width: 100%; height: 45%; z-index: -1; background-color: rgb(7, 97, 216); "></div>
<div style="position: absolute; left: 0px; top: 58%; width: 100%; height: 43%; z-index: -1; background-color: rgb(7, 96, 215); "></div>
<div style="position: absolute; left: 0px; top: 60%; width: 100%; height: 41%; z-index: -1; background-color: rgb(6, 95, 214); "></div>
<div style="position: absolute; left: 0px; top: 62%; width: 100%; height: 39%; z-index: -1; background-color: rgb(6, 93, 212); "></div>
<div style="position: absolute; left: 0px; top: 64%; width: 100%; height: 37%; z-index: -1; background-color: rgb(6, 92, 211); "></div>
<div style="position: absolute; left: 0px; top: 66%; width: 100%; height: 35%; z-index: -1; background-color: rgb(5, 91, 210); "></div>
<div style="position: absolute; left: 0px; top: 68%; width: 100%; height: 33%; z-index: -1; background-color: rgb(5, 89, 208); "></div>
<div style="position: absolute; left: 0px; top: 70%; width: 100%; height: 31%; z-index: -1; background-color: rgb(5, 88, 207); "></div>
<div style="position: absolute; left: 0px; top: 72%; width: 100%; height: 29%; z-index: -1; background-color: rgb(4, 87, 206); "></div>
<div style="position: absolute; left: 0px; top: 74%; width: 100%; height: 27%; z-index: -1; background-color: rgb(4, 85, 204); "></div>
<div style="position: absolute; left: 0px; top: 76%; width: 100%; height: 25%; z-index: -1; background-color: rgb(4, 84, 203); "></div>
<div style="position: absolute; left: 0px; top: 78%; width: 100%; height: 23%; z-index: -1; background-color: rgb(3, 82, 201); "></div>
<div style="position: absolute; left: 0px; top: 80%; width: 100%; height: 21%; z-index: -1; background-color: rgb(3, 81, 200); "></div>
<div style="position: absolute; left: 0px; top: 82%; width: 100%; height: 19%; z-index: -1; background-color: rgb(3, 80, 199); "></div>
<div style="position: absolute; left: 0px; top: 84%; width: 100%; height: 17%; z-index: -1; background-color: rgb(2, 78, 197); "></div>
<div style="position: absolute; left: 0px; top: 86%; width: 100%; height: 15%; z-index: -1; background-color: rgb(2, 77, 196); "></div>
<div style="position: absolute; left: 0px; top: 88%; width: 100%; height: 13%; z-index: -1; background-color: rgb(2, 76, 195); "></div>
<div style="position: absolute; left: 0px; top: 90%; width: 100%; height: 11%; z-index: -1; background-color: rgb(1, 74, 193); "></div>
<div style="position: absolute; left: 0px; top: 92%; width: 100%; height: 9%; z-index: -1; background-color: rgb(1, 73, 192); "></div>
<div style="position: absolute; left: 0px; top: 94%; width: 100%; height: 7%; z-index: -1; background-color: rgb(1, 72, 191); "></div>
<div style="position: absolute; left: 0px; top: 96%; width: 100%; height: 5%; z-index: -1; background-color: rgb(0, 70, 189); "></div>
<div style="position: absolute; left: 0px; top: 98%; width: 100%; height: 3%; z-index: -1; background-color: rgb(0, 69, 188); "></div>
<div style="position: absolute; left: 0px; top: 100%; width: 100%; height: 1%; z-index: -1; background-color: rgb(0, 68, 187); "></div>
</div>
<div class="body_content">
<br />
<table>
<tr>
<td class="h" align="right">File</td>
<td align="left">/usr/local/lib/perl5/site_perl/5.10.1/darwin-2level/Class/MOP/Class.pm</td>
</tr>
<tr>
<td class="h" align="right">Statements Executed</td>
<td align="left">13350</td>
</tr>
<tr>
<td class="h" align="right">Statement Execution Time</td>
<td align="left">25.4ms</td>
</tr>
</table>
<table id="subs_table" border="1" cellpadding="0" class="tablesorter">
<caption>Subroutines — ordered by exclusive time</caption>
<thead>
<tr>
<th>Calls</th>
<th><span title="Number of Places sub is called from">P</span></th>
<th><span title="Number of Files sub is called from">F</span></th>
<th>Exclusive<br />Time</th>
<th>Inclusive<br />Time</th>
<th>Subroutine</th>
</tr>
</thead>
<tbody>
<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c0"><span title="1.1%">11.8ms</span></td><td class="c0"><span title="4.5%">49.2ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::BEGIN@15</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#15">BEGIN@15</a></span></td></tr>
<tr><td class="c0">905</td><td class="c0">18</td><td class="c0">8</td><td class="c0"><span title="0.3%">3.79ms</span></td><td class="c0"><span title="0.8%">8.84ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::initialize</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#26">initialize</a></span></td></tr>
<tr><td class="c1">85</td><td class="c0">6</td><td class="c0">4</td><td class="c0"><span title="0.2%">2.26ms</span></td><td class="c0"><span title="0.4%">4.82ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::get_all_attributes</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#549">get_all_attributes</a></span></td></tr>
<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c0"><span title="0.1%">1.63ms</span></td><td class="c0"><span title="1.5%">16.1ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::BEGIN@8</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#8">BEGIN@8</a></span></td></tr>
<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c0"><span title="0.1%">1.42ms</span></td><td class="c2"><span title="0.2%">1.89ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::BEGIN@7</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#7">BEGIN@7</a></span></td></tr>
<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c0"><span title="0.1%">1.35ms</span></td><td class="c0"><span title="0.4%">4.16ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::BEGIN@9</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#9">BEGIN@9</a></span></td></tr>
<tr><td class="c3">51</td><td class="c3">1</td><td class="c3">1</td><td class="c0"><span title="0.1%">1.30ms</span></td><td class="c0"><span title="2.4%">26.6ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::_immutable_metaclass</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#924">_immutable_metaclass</a></span></td></tr>
<tr><td class="c0">119</td><td class="c3">1</td><td class="c3">1</td><td class="c0"><span title="0.1%">1.22ms</span></td><td class="c0"><span title="2.6%">28.9ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::_post_add_attribute</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#506">_post_add_attribute</a></span></td></tr>
<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c0"><span title="0.1%">1.18ms</span></td><td class="c2"><span title="0.2%">2.41ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::BEGIN@10</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#10">BEGIN@10</a></span></td></tr>
<tr><td class="c2">61</td><td class="c3">1</td><td class="c3">1</td><td class="c0"><span title="0.1%">1.04ms</span></td><td class="c0"><span title="0.4%">4.19ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::_construct_class_instance</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#51">_construct_class_instance</a></span></td></tr>
<tr><td class="c1">69</td><td class="c1">2</td><td class="c1">2</td><td class="c0"><span title="0.1%">979µs</span></td><td class="c0"><span title="0.5%">5.06ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::find_next_method_by_name</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#772">find_next_method_by_name</a></span></td></tr>
<tr><td class="c0">217</td><td class="c0">8</td><td class="c1">2</td><td class="c0"><span title="0.1%">979µs</span></td><td class="c3"><span title="0.1%">1.45ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::linearized_isa</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#608">linearized_isa</a></span></td></tr>
<tr><td class="c3">51</td><td class="c0">4</td><td class="c0">4</td><td class="c0"><span title="0.1%">958µs</span></td><td class="c0"><span title="0.7%">7.64ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::find_method_by_name</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#724">find_method_by_name</a></span></td></tr>
<tr><td class="c3">32</td><td class="c3">1</td><td class="c3">1</td><td class="c1"><span title="0.1%">749µs</span></td><td class="c0"><span title="3.0%">33.0ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::_inline_constructor</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#1034">_inline_constructor</a></span></td></tr>
<tr><td class="c3">51</td><td class="c0">7</td><td class="c0">5</td><td class="c1"><span title="0.1%">731µs</span></td><td class="c0"><span title="7.9%">86.6ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::make_immutable</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#888">make_immutable</a></span></td></tr>
<tr><td class="c0">119</td><td class="c3">1</td><td class="c3">1</td><td class="c1"><span title="0.1%">707µs</span></td><td class="c0"><span title="2.3%">25.2ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::__ANON__[:515]</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#512">__ANON__[:515]</a></span></td></tr>
<tr><td class="c2">59</td><td class="c3">1</td><td class="c3">1</td><td class="c1"><span title="0.1%">657µs</span></td><td class="c3"><span title="0.1%">657µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::_new</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#103">_new</a></span></td></tr>
<tr><td class="c0">119</td><td class="c3">1</td><td class="c3">1</td><td class="c1"><span title="0.1%">628µs</span></td><td class="c3"><span title="0.1%">780µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::invalidate_meta_instances</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#838">invalidate_meta_instances</a></span></td></tr>
<tr><td class="c3">36</td><td class="c3">1</td><td class="c3">1</td><td class="c1"><span title="0.1%">623µs</span></td><td class="c0"><span title="0.7%">7.52ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::__ANON__[:678]</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#649">__ANON__[:678]</a></span></td></tr>
<tr><td class="c3">51</td><td class="c1">2</td><td class="c1">2</td><td class="c1"><span title="0.1%">618µs</span></td><td class="c3"><span title="0.1%">881µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::_immutable_options</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#872">_immutable_options</a></span></td></tr>
<tr><td class="c3">51</td><td class="c3">1</td><td class="c3">1</td><td class="c2"><span title="0.0%">522µs</span></td><td class="c3"><span title="0.2%">1.67ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::find_attribute_by_name</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#536">find_attribute_by_name</a></span></td></tr>
<tr><td class="c3">51</td><td class="c3">1</td><td class="c3">1</td><td class="c2"><span title="0.0%">514µs</span></td><td class="c0"><span title="5.3%">58.1ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::_initialize_immutable</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#1002">_initialize_immutable</a></span></td></tr>
<tr><td class="c3">38</td><td class="c3">1</td><td class="c3">1</td><td class="c2"><span title="0.0%">457µs</span></td><td class="c0"><span title="0.5%">5.52ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::_create_meta_instance</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#387">_create_meta_instance</a></span></td></tr>
<tr><td class="c3">51</td><td class="c3">1</td><td class="c3">1</td><td class="c2"><span title="0.0%">457µs</span></td><td class="c0"><span title="5.3%">57.6ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::_install_inlined_code</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#1009">_install_inlined_code</a></span></td></tr>
<tr><td class="c3">32</td><td class="c3">1</td><td class="c3">1</td><td class="c2"><span title="0.0%">453µs</span></td><td class="c0"><span title="2.1%">23.4ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::_inline_accessors</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#1026">_inline_accessors</a></span></td></tr>
<tr><td class="c3">51</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">383µs</span></td><td class="c0"><span title="2.5%">27.0ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::_rebless_as_immutable</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#916">_rebless_as_immutable</a></span></td></tr>
<tr><td class="c0">119</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">374µs</span></td><td class="c3"><span title="0.1%">1.36ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::_attach_attribute</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#501">_attach_attribute</a></span></td></tr>
<tr><td class="c2">67</td><td class="c1">2</td><td class="c3">1</td><td class="c3"><span title="0.0%">330µs</span></td><td class="c3"><span title="0.0%">416µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::is_anon_class</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#221">is_anon_class</a></span></td></tr>
<tr><td class="c3">12</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">328µs</span></td><td class="c3"><span title="0.1%">1.24ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::_clone_instance</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#415">_clone_instance</a></span></td></tr>
<tr><td class="c0">270</td><td class="c0">9</td><td class="c0">4</td><td class="c3"><span title="0.0%">321µs</span></td><td class="c3"><span title="0.0%">321µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::instance_metaclass</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#333">instance_metaclass</a></span></td></tr>
<tr><td class="c2">64</td><td class="c0">3</td><td class="c1">2</td><td class="c3"><span title="0.0%">302µs</span></td><td class="c3"><span title="0.0%">427µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::_check_metaclass_compatibility</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#168">_check_metaclass_compatibility</a></span></td></tr>
<tr><td class="c3">6</td><td class="c1">2</td><td class="c3">1</td><td class="c3"><span title="0.0%">294µs</span></td><td class="c1"><span title="0.3%">3.27ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::_construct_instance</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#354">_construct_instance</a></span></td></tr>
<tr><td class="c3">36</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">259µs</span></td><td class="c0"><span title="0.8%">8.56ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::add_around_method_modifier</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#700">add_around_method_modifier</a></span></td></tr>
<tr><td class="c3">7</td><td class="c1">2</td><td class="c1">2</td><td class="c3"><span title="0.0%">179µs</span></td><td class="c3"><span title="0.0%">467µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::superclasses</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#558">superclasses</a></span></td></tr>
<tr><td class="c2">63</td><td class="c0">9</td><td class="c0">6</td><td class="c3"><span title="0.0%">177µs</span></td><td class="c0"><span title="0.5%">5.69ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::get_meta_instance</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#382">get_meta_instance</a></span></td></tr>
<tr><td class="c3">2</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">155µs</span></td><td class="c0"><span title="0.3%">3.74ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::get_all_methods</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#735">get_all_methods</a></span></td></tr>
<tr><td class="c0">119</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">152µs</span></td><td class="c3"><span title="0.0%">152µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::invalidate_meta_instance</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#844">invalidate_meta_instance</a></span></td></tr>
<tr><td class="c1">100</td><td class="c1">2</td><td class="c3">1</td><td class="c3"><span title="0.0%">138µs</span></td><td class="c3"><span title="0.0%">138µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::immutable_trait</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#334">immutable_trait</a></span></td></tr>
<tr><td class="c3">12</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">130µs</span></td><td class="c3"><span title="0.1%">1.40ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::clone_object</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#401">clone_object</a></span></td></tr>
<tr><td class="c3">33</td><td class="c1">2</td><td class="c3">1</td><td class="c3"><span title="0.0%">91µs</span></td><td class="c3"><span title="0.0%">91µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::_add_inlined_method</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#996">_add_inlined_method</a></span></td></tr>
<tr><td class="c3">2</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">79µs</span></td><td class="c3"><span title="0.1%">550µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::create</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#269">create</a></span></td></tr>
<tr><td class="c3">51</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">67µs</span></td><td class="c3"><span title="0.0%">67µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::constructor_name</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#336">constructor_name</a></span></td></tr>
<tr><td class="c3">50</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">59µs</span></td><td class="c3"><span title="0.0%">59µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::constructor_class</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#335">constructor_class</a></span></td></tr>
<tr><td class="c1">82</td><td class="c0">3</td><td class="c0">3</td><td class="c3"><span title="0.0%">54µs</span></td><td class="c3"><span title="0.0%">54µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::is_mutable</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#867">is_mutable</a></span></td></tr>
<tr><td class="c3">4</td><td class="c0">3</td><td class="c0">3</td><td class="c3"><span title="0.0%">47µs</span></td><td class="c2"><span title="0.2%">1.90ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::new_object</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#341">new_object</a></span></td></tr>
<tr><td class="c3">50</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">47µs</span></td><td class="c3"><span title="0.0%">47µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::destructor_class</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#337">destructor_class</a></span></td></tr>
<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">46µs</span></td><td class="c3"><span title="0.1%">764µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::_inline_destructor</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#1069">_inline_destructor</a></span></td></tr>
<tr><td class="c3">2</td><td class="c1">2</td><td class="c1">2</td><td class="c3"><span title="0.0%">41µs</span></td><td class="c3"><span title="0.0%">187µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::find_all_methods_by_name</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#755">find_all_methods_by_name</a></span></td></tr>
<tr><td class="c2">67</td><td class="c3">1</td><td class="c1">2</td><td class="c3"><span title="0.0%">31µs</span></td><td class="c3"><span title="0.0%">31µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::CORE:match</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#Class__MOP__Class__CORE_match">CORE:match</a> (opcode)</span></td></tr>
<tr><td class="c3">3</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">15µs</span></td><td class="c3"><span title="0.0%">23µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::_superclasses_updated</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#585">_superclasses_updated</a></span></td></tr>
<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">14µs</span></td><td class="c3"><span title="0.0%">78µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::BEGIN@16</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#16">BEGIN@16</a></span></td></tr>
<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">14µs</span></td><td class="c3"><span title="0.0%">17µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::BEGIN@4</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#4">BEGIN@4</a></span></td></tr>
<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">10µs</span></td><td class="c1"><span title="0.3%">3.03ms</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::BEGIN@22</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#22">BEGIN@22</a></span></td></tr>
<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">10µs</span></td><td class="c3"><span title="0.0%">21µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::BEGIN@223</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#223">BEGIN@223</a></span></td></tr>
<tr><td class="c3">1</td><td class="c3">1</td><td class="c1">2</td><td class="c3"><span title="0.0%">10µs</span></td><td class="c3"><span title="0.0%">10µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::CORE:regcomp</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#Class__MOP__Class__CORE_regcomp">CORE:regcomp</a> (opcode)</span></td></tr>
<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">9µs</span></td><td class="c3"><span title="0.0%">44µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::BEGIN@12</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#12">BEGIN@12</a></span></td></tr>
<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">9µs</span></td><td class="c3"><span title="0.0%">38µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::BEGIN@14</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#14">BEGIN@14</a></span></td></tr>
<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">9µs</span></td><td class="c3"><span title="0.0%">17µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::BEGIN@244</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#244">BEGIN@244</a></span></td></tr>
<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">8µs</span></td><td class="c3"><span title="0.0%">48µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::BEGIN@13</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#13">BEGIN@13</a></span></td></tr>
<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">8µs</span></td><td class="c3"><span title="0.0%">20µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::BEGIN@5</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#5">BEGIN@5</a></span></td></tr>
<tr><td class="c3">3</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">8µs</span></td><td class="c3"><span title="0.0%">8µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::update_meta_instance_dependencies</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#785">update_meta_instance_dependencies</a></span></td></tr>
<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">7µs</span></td><td class="c3"><span title="0.0%">17µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::BEGIN@257</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#257">BEGIN@257</a></span></td></tr>
<tr><td class="c3">6</td><td class="c0">4</td><td class="c1">2</td><td class="c3"><span title="0.0%">7µs</span></td><td class="c3"><span title="0.0%">7µs</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::is_immutable</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#868">is_immutable</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::DESTROY</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#239">DESTROY</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::__ANON__[:305]</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#303">__ANON__[:305]</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::__ANON__[:519]</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#516">__ANON__[:519]</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::_inlined_methods</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#994">_inlined_methods</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::_rebless_as_mutable</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#1018">_rebless_as_mutable</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::_remove_inlined_code</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#986">_remove_inlined_code</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::add_after_method_modifier</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#690">add_after_method_modifier</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::add_before_method_modifier</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#680">add_before_method_modifier</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::add_dependent_meta_instance</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#826">add_dependent_meta_instance</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::add_meta_instance_dependencies</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#793">add_meta_instance_dependencies</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::class_precedence_list</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#612">class_precedence_list</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::create_anon_class</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#227">create_anon_class</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::direct_subclasses</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#597">direct_subclasses</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::get_all_method_names</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#749">get_all_method_names</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::immutable_options</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#870">immutable_options</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::is_pristine</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#850">is_pristine</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::make_mutable</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#901">make_mutable</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::rebless_instance</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#431">rebless_instance</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::rebless_instance_away</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#497">rebless_instance_away</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::rebless_instance_back</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#468">rebless_instance_back</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::remove_attribute</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#522">remove_attribute</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::remove_dependent_meta_instance</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#831">remove_dependent_meta_instance</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::remove_meta_instance_dependencies</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#811">remove_meta_instance_dependencies</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::reset_package_cache_flag</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#156">reset_package_cache_flag</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::subclasses</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#590">subclasses</a></span></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">Class::MOP::Class::::update_package_cache_flag</span>Class::MOP::Class::<a href="Class-MOP-Class-pm-block.html#157">update_package_cache_flag</a></span></td></tr>
</tbody>
</table>
Call graph for these subroutines as a <a href="http://en.wikipedia.org/wiki/Graphviz">Graphviz</a> <a href="usr-local-lib-perl5-site_perl-5-10-1-darwin-2level-Class-MOP-Class-pm.dot">dot language file</a>.
<table border="1" cellpadding="0">
<thead>
<tr><th>Line</th>
<th><span title="Number of statements executed">State<br />ments</span></th>
<th><span title="Time spend executing statements on the line,
excluding time spent executing statements in any called subroutines">Time<br />on line</span></th>
<th><span title="Number of subroutines calls">Calls</span></th>
<th><span title="Time spent in subroutines called">Time<br />in subs</span></th>
<th class="left_indent_header">Code</th>
</tr>
</thead>
<tbody>
<tr><td class="h"><a name="1"></a>1</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="2"></a>2</td><td></td><td></td><td></td><td></td><td class="s">package Class::MOP::Class;</td></tr>
<tr><td class="h"><a name="3"></a>3</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="4"></a>4</td><td class="c3">3</td><td class="c3"><span title="Avg 7µs">20µs</span></td><td class="c3">2</td><td class="c3">20µs</td><td class="s"><div class="calls"><div class="calls_in"># spent 17µs (14+3) within Class::MOP::Class::BEGIN@4 which was called
# once (14µs+3µs) by Class::MOP::BEGIN@18 at <a href="Class-MOP-Class-pm-block.html#4">line 4</a></div></div>use strict;<div class="calls"><div class="calls_out"># spent 17µs making 1 call to <a href="Class-MOP-Class-pm-block.html#4">Class::MOP::Class::BEGIN@4</a>
# spent 3µs making 1 call to <a href="strict-pm-block.html#34">strict::import</a></div></div></td></tr>
<tr><td class="h"><a name="5"></a>5</td><td class="c3">3</td><td class="c3"><span title="Avg 7µs">20µs</span></td><td class="c3">2</td><td class="c3">32µs</td><td class="s"><div class="calls"><div class="calls_in"># spent 20µs (8+12) within Class::MOP::Class::BEGIN@5 which was called
# once (8µs+12µs) by Class::MOP::BEGIN@18 at <a href="Class-MOP-Class-pm-block.html#5">line 5</a></div></div>use warnings;<div class="calls"><div class="calls_out"># spent 20µs making 1 call to <a href="Class-MOP-Class-pm-block.html#5">Class::MOP::Class::BEGIN@5</a>
# spent 12µs making 1 call to <a href="warnings-pm-block.html#338">warnings::import</a></div></div></td></tr>
<tr><td class="h"><a name="6"></a>6</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="7"></a>7</td><td class="c3">3</td><td class="c3"><span title="Avg 35µs">104µs</span></td><td class="c3">1</td><td class="c0">1.89ms</td><td class="s"><div class="calls"><div class="calls_in"># spent 1.89ms (1.42+466µs) within Class::MOP::Class::BEGIN@7 which was called
# once (1.42ms+466µs) by Class::MOP::BEGIN@18 at <a href="Class-MOP-Class-pm-block.html#7">line 7</a></div></div>use Class::MOP::Instance;<div class="calls"><div class="calls_out"># spent 1.89ms making 1 call to <a href="Class-MOP-Class-pm-block.html#7">Class::MOP::Class::BEGIN@7</a></div></div></td></tr>
<tr><td class="h"><a name="8"></a>8</td><td class="c3">3</td><td class="c3"><span title="Avg 43µs">129µs</span></td><td class="c3">1</td><td class="c0">16.1ms</td><td class="s"><div class="calls"><div class="calls_in"># spent 16.1ms (1.63+14.5) within Class::MOP::Class::BEGIN@8 which was called
# once (1.63ms+14.5ms) by Class::MOP::BEGIN@18 at <a href="Class-MOP-Class-pm-block.html#8">line 8</a></div></div>use Class::MOP::Method::Wrapped;<div class="calls"><div class="calls_out"># spent 16.1ms making 1 call to <a href="Class-MOP-Class-pm-block.html#8">Class::MOP::Class::BEGIN@8</a></div></div></td></tr>
<tr><td class="h"><a name="9"></a>9</td><td class="c3">3</td><td class="c3"><span title="Avg 51µs">153µs</span></td><td class="c3">1</td><td class="c0">4.16ms</td><td class="s"><div class="calls"><div class="calls_in"># spent 4.16ms (1.35+2.81) within Class::MOP::Class::BEGIN@9 which was called
# once (1.35ms+2.81ms) by Class::MOP::BEGIN@18 at <a href="Class-MOP-Class-pm-block.html#9">line 9</a></div></div>use Class::MOP::Method::Accessor;<div class="calls"><div class="calls_out"># spent 4.16ms making 1 call to <a href="Class-MOP-Class-pm-block.html#9">Class::MOP::Class::BEGIN@9</a></div></div></td></tr>
<tr><td class="h"><a name="10"></a>10</td><td class="c3">3</td><td class="c3"><span title="Avg 46µs">138µs</span></td><td class="c3">1</td><td class="c0">2.41ms</td><td class="s"><div class="calls"><div class="calls_in"># spent 2.41ms (1.18+1.23) within Class::MOP::Class::BEGIN@10 which was called
# once (1.18ms+1.23ms) by Class::MOP::BEGIN@18 at <a href="Class-MOP-Class-pm-block.html#10">line 10</a></div></div>use Class::MOP::Method::Constructor;<div class="calls"><div class="calls_out"># spent 2.41ms making 1 call to <a href="Class-MOP-Class-pm-block.html#10">Class::MOP::Class::BEGIN@10</a></div></div></td></tr>
<tr><td class="h"><a name="11"></a>11</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="12"></a>12</td><td class="c3">3</td><td class="c3"><span title="Avg 11µs">32µs</span></td><td class="c3">2</td><td class="c3">78µs</td><td class="s"><div class="calls"><div class="calls_in"># spent 44µs (9+35) within Class::MOP::Class::BEGIN@12 which was called
# once (9µs+35µs) by Class::MOP::BEGIN@18 at <a href="Class-MOP-Class-pm-block.html#12">line 12</a></div></div>use Carp 'confess';<div class="calls"><div class="calls_out"># spent 44µs making 1 call to <a href="Class-MOP-Class-pm-block.html#12">Class::MOP::Class::BEGIN@12</a>
# spent 35µs making 1 call to <a href="Exporter-pm-block.html#31">Exporter::import</a></div></div></td></tr>
<tr><td class="h"><a name="13"></a>13</td><td class="c3">3</td><td class="c3"><span title="Avg 10µs">29µs</span></td><td class="c3">2</td><td class="c3">89µs</td><td class="s"><div class="calls"><div class="calls_in"># spent 48µs (8+40) within Class::MOP::Class::BEGIN@13 which was called
# once (8µs+40µs) by Class::MOP::BEGIN@18 at <a href="Class-MOP-Class-pm-block.html#13">line 13</a></div></div>use Scalar::Util 'blessed', 'reftype', 'weaken';<div class="calls"><div class="calls_out"># spent 48µs making 1 call to <a href="Class-MOP-Class-pm-block.html#13">Class::MOP::Class::BEGIN@13</a>
# spent 40µs making 1 call to <a href="Exporter-pm-block.html#31">Exporter::import</a></div></div></td></tr>
<tr><td class="h"><a name="14"></a>14</td><td class="c3">3</td><td class="c3"><span title="Avg 10µs">29µs</span></td><td class="c3">2</td><td class="c3">67µs</td><td class="s"><div class="calls"><div class="calls_in"># spent 38µs (9+29) within Class::MOP::Class::BEGIN@14 which was called
# once (9µs+29µs) by Class::MOP::BEGIN@18 at <a href="Class-MOP-Class-pm-block.html#14">line 14</a></div></div>use Sub::Name 'subname';<div class="calls"><div class="calls_out"># spent 38µs making 1 call to <a href="Class-MOP-Class-pm-block.html#14">Class::MOP::Class::BEGIN@14</a>
# spent 29µs making 1 call to <a href="Exporter-pm-block.html#31">Exporter::import</a></div></div></td></tr>
<tr><td class="h"><a name="15"></a>15</td><td class="c3">3</td><td class="c3"><span title="Avg 56µs">167µs</span></td><td class="c3">2</td><td class="c0">49.5ms</td><td class="s"><div class="calls"><div class="calls_in"># spent 49.2ms (11.8+37.4) within Class::MOP::Class::BEGIN@15 which was called
# once (11.8ms+37.4ms) by Class::MOP::BEGIN@18 at <a href="Class-MOP-Class-pm-block.html#15">line 15</a></div></div>use Devel::GlobalDestruction 'in_global_destruction';<div class="calls"><div class="calls_out"># spent 49.2ms making 1 call to <a href="Class-MOP-Class-pm-block.html#15">Class::MOP::Class::BEGIN@15</a>
# spent 267µs making 1 call to <a href="Sub-Exporter-pm-block.html#711">Sub::Exporter::__ANON__[Sub/Exporter.pm:756]</a></div></div></td></tr>
<tr><td class="h"><a name="16"></a>16</td><td class="c3">3</td><td class="c3"><span title="Avg 24µs">71µs</span></td><td class="c3">2</td><td class="c3">141µs</td><td class="s"><div class="calls"><div class="calls_in"># spent 78µs (14+63) within Class::MOP::Class::BEGIN@16 which was called
# once (14µs+63µs) by Class::MOP::BEGIN@18 at <a href="Class-MOP-Class-pm-block.html#16">line 16</a></div></div>use Try::Tiny;<div class="calls"><div class="calls_out"># spent 78µs making 1 call to <a href="Class-MOP-Class-pm-block.html#16">Class::MOP::Class::BEGIN@16</a>
# spent 63µs making 1 call to <a href="Exporter-pm-block.html#31">Exporter::import</a></div></div></td></tr>
<tr><td class="h"><a name="17"></a>17</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="18"></a>18</td><td class="c3">1</td><td class="c3"><span title="Avg 700ns">700ns</span></td><td></td><td></td><td class="s">our $VERSION = '0.98';</td></tr>
<tr><td class="h"><a name="19"></a>19</td><td class="c3">1</td><td class="c3"><span title="Avg 14µs">14µs</span></td><td></td><td></td><td class="s">$VERSION = eval $VERSION;</td></tr>
<tr><td class="h"><a name="20"></a>20</td><td class="c3">1</td><td class="c3"><span title="Avg 300ns">300ns</span></td><td></td><td></td><td class="s">our $AUTHORITY = 'cpan:STEVAN';</td></tr>
<tr><td class="h"><a name="21"></a>21</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="22"></a>22</td><td class="c3">3</td><td class="c0"><span title="Avg 183µs">548µs</span></td><td class="c3">2</td><td class="c0">6.06ms</td><td class="s"><div class="calls"><div class="calls_in"># spent 3.03ms (10µs+3.02) within Class::MOP::Class::BEGIN@22 which was called
# once (10µs+3.02ms) by Class::MOP::BEGIN@18 at <a href="Class-MOP-Class-pm-block.html#22">line 22</a></div></div>use base 'Class::MOP::Module', 'Class::MOP::Mixin::HasAttributes';<div class="calls"><div class="calls_out"># spent 3.03ms making 1 call to <a href="Class-MOP-Class-pm-block.html#22">Class::MOP::Class::BEGIN@22</a>
# spent 3.02ms making 1 call to <a href="base-pm-block.html#64">base::import</a></div></div></td></tr>
<tr><td class="h"><a name="23"></a>23</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="24"></a>24</td><td></td><td></td><td></td><td></td><td class="s"># Creation</td></tr>
<tr><td class="h"><a name="25"></a>25</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="26"></a>26</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 8.84ms (3.79+5.04) within Class::MOP::Class::initialize which was called 905 times, avg 10µs/call:
# 293 times (1.16ms+288µs) by Class::MOP::Class::get_all_attributes at <a href="Class-MOP-Class-pm-block.html#551">line 551</a>, avg 5µs/call
# 175 times (677µs+200µs) by Class::MOP::Class::find_method_by_name at <a href="Class-MOP-Class-pm-block.html#729">line 729</a>, avg 5µs/call
# 133 times (598µs+842µs) by Class::MOP::Object::meta at <a href="Class-MOP-Object-pm-block.html#17">line 17 of Class/MOP/Object.pm</a>, avg 11µs/call
# 112 times (430µs+122µs) by Class::MOP::Class::find_next_method_by_name at <a href="Class-MOP-Class-pm-block.html#779">line 779</a>, avg 5µs/call
# 51 times (189µs+43µs) by Class::MOP::Class::find_attribute_by_name at <a href="Class-MOP-Class-pm-block.html#541">line 541</a>, avg 5µs/call
# 43 times (205µs+102µs) by Moose::Meta::Role::Application::RoleSummation::meta or Moose::Meta::Role::Application::ToClass::meta or Moose::Meta::Role::Application::ToInstance::meta or Moose::Meta::Role::Application::ToRole::meta or Moose::Meta::Role::Application::meta or Moose::Meta::Role::Composite::meta or Moose::Meta::Role::Method::Required::meta or Moose::Meta::Role::meta or Moose::Meta::TypeCoercion::Union::meta or Moose::Meta::TypeCoercion::meta or Moose::Meta::TypeConstraint::Class::meta or Moose::Meta::TypeConstraint::DuckType::meta or Moose::Meta::TypeConstraint::Enum::meta or Moose::Meta::TypeConstraint::Parameterizable::meta or Moose::Meta::TypeConstraint::Parameterized::meta or Moose::Meta::TypeConstraint::Registry::meta or Moose::Meta::TypeConstraint::Role::meta or Moose::Meta::TypeConstraint::Union::meta or Moose::Meta::TypeConstraint::meta at <a href="metaclass-pm-block.html#50">line 50 of metaclass.pm</a>, avg 7µs/call
# 40 times (200µs+347µs) by Class::MOP::Mixin::meta at <a href="Class-MOP-Mixin-pm-block.html#14">line 14 of Class/MOP/Mixin.pm</a>, avg 14µs/call
# 19 times (140µs+850µs) by metaclass::import at <a href="metaclass-pm-block.html#43">line 43 of metaclass.pm</a>, avg 52µs/call
# 12 times (40µs+11µs) by Class::MOP::Attribute::set_raw_value at <a href="Class-MOP-Attribute-pm-block.html#264">line 264 of Class/MOP/Attribute.pm</a>, avg 4µs/call
# 7 times (51µs+315µs) by Moose::BEGIN@37 at <a href="Moose-Meta-Attribute-Native-pm-block.html#11">line 11 of Moose/Meta/Attribute/Native.pm</a>, avg 52µs/call
# 6 times (22µs+6µs) by Class::MOP::Attribute::get_raw_value at <a href="Class-MOP-Attribute-pm-block.html#272">line 272 of Class/MOP/Attribute.pm</a>, avg 5µs/call
# 3 times (13µs+3µs) by Class::MOP::Class::get_all_methods at <a href="Class-MOP-Class-pm-block.html#740">line 740</a>, avg 5µs/call
# 2 times (16µs+1.68ms) by Moose::Meta::Class::initialize at <a href="Moose-Meta-Class-pm-block.html#62">line 62 of Moose/Meta/Class.pm</a>, avg 850µs/call
# 2 times (14µs+105µs) by Class::MOP::Class::create at <a href="Class-MOP-Class-pm-block.html#298">line 298</a>, avg 60µs/call
# 2 times (14µs+76µs) by Class::MOP::Class::_immutable_metaclass at <a href="Class-MOP-Class-pm-block.html#967">line 967</a>, avg 45µs/call
# 2 times (11µs+44µs) by Class::MOP::Method::_new at <a href="Class-MOP-Method-pm-block.html#54">line 54 of Class/MOP/Method.pm</a>, avg 27µs/call
# 2 times (9µs+2µs) by Class::MOP::Attribute::has_value at <a href="Class-MOP-Attribute-pm-block.html#280">line 280 of Class/MOP/Attribute.pm</a>, avg 6µs/call
# once (4µs+1µs) by Class::MOP::Attribute::_new at <a href="Class-MOP-Attribute-pm-block.html#62">line 62 of Class/MOP/Attribute.pm</a></div></div>sub initialize {</td></tr>
<tr><td class="h"><a name="27"></a>27</td><td class="c0">4525</td><td class="c0"><span title="Avg 709ns">3.21ms</span></td><td></td><td></td><td class="s"> my $class = shift;</td></tr>
<tr><td class="h"><a name="28"></a>28</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="29"></a>29</td><td></td><td></td><td></td><td></td><td class="s"> my $package_name;</td></tr>
<tr><td class="h"><a name="30"></a>30</td><td></td><td></td><td></td><td></td><td class="s"> </td></tr>
<tr><td class="h"><a name="31"></a>31</td><td></td><td></td><td></td><td></td><td class="s"> if ( @_ % 2 ) {</td></tr>
<tr><td class="h"><a name="32"></a>32</td><td></td><td></td><td></td><td></td><td class="s"> $package_name = shift;</td></tr>
<tr><td class="h"><a name="33"></a>33</td><td></td><td></td><td></td><td></td><td class="s"> } else {</td></tr>
<tr><td class="h"><a name="34"></a>34</td><td></td><td></td><td></td><td></td><td class="s"> my %options = @_;</td></tr>
<tr><td class="h"><a name="35"></a>35</td><td></td><td></td><td></td><td></td><td class="s"> $package_name = $options{package};</td></tr>
<tr><td class="h"><a name="36"></a>36</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="37"></a>37</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="38"></a>38</td><td></td><td></td><td></td><td></td><td class="s"> ($package_name && !ref($package_name))</td></tr>
<tr><td class="h"><a name="39"></a>39</td><td></td><td></td><td></td><td></td><td class="s"> || confess "You must pass a package name and it cannot be blessed";</td></tr>
<tr><td class="h"><a name="40"></a>40</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="41"></a>41</td><td></td><td></td><td></td><td></td><td class="s"> return Class::MOP::get_metaclass_by_name($package_name)<div class="calls"><div class="calls_out"> # spent 4.19ms making 61 calls to <a href="Class-MOP-Class-pm-block.html#51">Class::MOP::Class::_construct_class_instance</a>, avg 69µs/call
# spent 979µs making 905 calls to <a href="Class-MOP-pm-block.html#51">Class::MOP::get_metaclass_by_name</a>, avg 1µs/call</div></div></td></tr>
<tr><td class="h"><a name="42"></a>42</td><td></td><td></td><td></td><td></td><td class="s"> || $class->_construct_class_instance(package => $package_name, @_);</td></tr>
<tr><td class="h"><a name="43"></a>43</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="44"></a>44</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="45"></a>45</td><td></td><td></td><td></td><td></td><td class="s"># NOTE: (meta-circularity)</td></tr>
<tr><td class="h"><a name="46"></a>46</td><td></td><td></td><td></td><td></td><td class="s"># this is a special form of _construct_instance</td></tr>
<tr><td class="h"><a name="47"></a>47</td><td></td><td></td><td></td><td></td><td class="s"># (see below), which is used to construct class</td></tr>
<tr><td class="h"><a name="48"></a>48</td><td></td><td></td><td></td><td></td><td class="s"># meta-object instances for any Class::MOP::*</td></tr>
<tr><td class="h"><a name="49"></a>49</td><td></td><td></td><td></td><td></td><td class="s"># class. All other classes will use the more</td></tr>
<tr><td class="h"><a name="50"></a>50</td><td></td><td></td><td></td><td></td><td class="s"># normal &construct_instance.</td></tr>
<tr><td class="h"><a name="51"></a>51</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 4.19ms (1.04+3.15) within Class::MOP::Class::_construct_class_instance which was called 61 times, avg 69µs/call:
# 61 times (1.04ms+3.15ms) by Class::MOP::Class::initialize at <a href="Class-MOP-Class-pm-block.html#41">line 41</a>, avg 69µs/call</div></div>sub _construct_class_instance {</td></tr>
<tr><td class="h"><a name="52"></a>52</td><td class="c0">732</td><td class="c0"><span title="Avg 1µs">733µs</span></td><td></td><td></td><td class="s"> my $class = shift;</td></tr>
<tr><td class="h"><a name="53"></a>53</td><td></td><td></td><td></td><td></td><td class="s"> my $options = @_ == 1 ? $_[0] : {@_};</td></tr>
<tr><td class="h"><a name="54"></a>54</td><td></td><td></td><td></td><td></td><td class="s"> my $package_name = $options->{package};</td></tr>
<tr><td class="h"><a name="55"></a>55</td><td></td><td></td><td></td><td></td><td class="s"> (defined $package_name && $package_name)</td></tr>
<tr><td class="h"><a name="56"></a>56</td><td></td><td></td><td></td><td></td><td class="s"> || confess "You must pass a package name";</td></tr>
<tr><td class="h"><a name="57"></a>57</td><td></td><td></td><td></td><td></td><td class="s"> # NOTE:</td></tr>
<tr><td class="h"><a name="58"></a>58</td><td></td><td></td><td></td><td></td><td class="s"> # return the metaclass if we have it cached,</td></tr>
<tr><td class="h"><a name="59"></a>59</td><td></td><td></td><td></td><td></td><td class="s"> # and it is still defined (it has not been</td></tr>
<tr><td class="h"><a name="60"></a>60</td><td></td><td></td><td></td><td></td><td class="s"> # reaped by DESTROY yet, which can happen</td></tr>
<tr><td class="h"><a name="61"></a>61</td><td></td><td></td><td></td><td></td><td class="s"> # annoyingly enough during global destruction)</td></tr>
<tr><td class="h"><a name="62"></a>62</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="63"></a>63</td><td></td><td></td><td></td><td></td><td class="s"> if (defined(my $meta = Class::MOP::get_metaclass_by_name($package_name))) {<div class="calls"><div class="calls_out"> # spent 54µs making 61 calls to <a href="Class-MOP-pm-block.html#51">Class::MOP::get_metaclass_by_name</a>, avg 879ns/call</div></div></td></tr>
<tr><td class="h"><a name="64"></a>64</td><td></td><td></td><td></td><td></td><td class="s"> return $meta;</td></tr>
<tr><td class="h"><a name="65"></a>65</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="66"></a>66</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="67"></a>67</td><td></td><td></td><td></td><td></td><td class="s"> # NOTE:</td></tr>
<tr><td class="h"><a name="68"></a>68</td><td></td><td></td><td></td><td></td><td class="s"> # we need to deal with the possibility</td></tr>
<tr><td class="h"><a name="69"></a>69</td><td></td><td></td><td></td><td></td><td class="s"> # of class immutability here, and then</td></tr>
<tr><td class="h"><a name="70"></a>70</td><td></td><td></td><td></td><td></td><td class="s"> # get the name of the class appropriately</td></tr>
<tr><td class="h"><a name="71"></a>71</td><td></td><td></td><td></td><td></td><td class="s"> $class = (ref($class)<div class="calls"><div class="calls_out"> # spent 4µs making 3 calls to <a href="Class-MOP-Class-pm-block.html#868">Class::MOP::Class::is_immutable</a>, avg 1µs/call</div></div></td></tr>
<tr><td class="h"><a name="72"></a>72</td><td></td><td></td><td></td><td></td><td class="s"> ? ($class->is_immutable</td></tr>
<tr><td class="h"><a name="73"></a>73</td><td></td><td></td><td></td><td></td><td class="s"> ? $class->_get_mutable_metaclass_name()</td></tr>
<tr><td class="h"><a name="74"></a>74</td><td></td><td></td><td></td><td></td><td class="s"> : ref($class))</td></tr>
<tr><td class="h"><a name="75"></a>75</td><td></td><td></td><td></td><td></td><td class="s"> : $class);</td></tr>
<tr><td class="h"><a name="76"></a>76</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="77"></a>77</td><td></td><td></td><td></td><td></td><td class="s"> # now create the metaclass</td></tr>
<tr><td class="h"><a name="78"></a>78</td><td></td><td></td><td></td><td></td><td class="s"> my $meta;</td></tr>
<tr><td class="h"><a name="79"></a>79</td><td class="c3">2</td><td class="c3"><span title="Avg 5µs">10µs</span></td><td class="c0">59</td><td class="c2">657µs</td><td class="s"> if ($class eq 'Class::MOP::Class') {<div class="calls"><div class="calls_out"> # spent 657µs making 59 calls to <a href="Class-MOP-Class-pm-block.html#103">Class::MOP::Class::_new</a>, avg 11µs/call</div></div></td></tr>
<tr><td class="h"><a name="80"></a>80</td><td></td><td></td><td></td><td></td><td class="s"> $meta = $class->_new($options);</td></tr>
<tr><td class="h"><a name="81"></a>81</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="82"></a>82</td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr>
<tr><td class="h"><a name="83"></a>83</td><td></td><td></td><td></td><td></td><td class="s"> # NOTE:</td></tr>
<tr><td class="h"><a name="84"></a>84</td><td></td><td></td><td></td><td></td><td class="s"> # it is safe to use meta here because</td></tr>
<tr><td class="h"><a name="85"></a>85</td><td></td><td></td><td></td><td></td><td class="s"> # class will always be a subclass of</td></tr>
<tr><td class="h"><a name="86"></a>86</td><td></td><td></td><td></td><td></td><td class="s"> # Class::MOP::Class, which defines meta</td></tr>
<tr><td class="h"><a name="87"></a>87</td><td></td><td></td><td></td><td></td><td class="s"> $meta = $class->meta->_construct_instance($options)<div class="calls"><div class="calls_out"> # spent 1.43ms making 2 calls to <a href="Class-MOP-Class-pm-block.html#354">Class::MOP::Class::_construct_instance</a>, avg 717µs/call
# spent 25µs making 2 calls to <a href="Class-MOP-Object-pm-block.html#15">Class::MOP::Object::meta</a>, avg 13µs/call</div></div></td></tr>
<tr><td class="h"><a name="88"></a>88</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="89"></a>89</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="90"></a>90</td><td></td><td></td><td></td><td></td><td class="s"> # and check the metaclass compatibility</td></tr>
<tr><td class="h"><a name="91"></a>91</td><td></td><td></td><td></td><td></td><td class="s"> $meta->_check_metaclass_compatibility(); <div class="calls"><div class="calls_out"> # spent 341µs making 59 calls to <a href="Class-MOP-Class-pm-block.html#168">Class::MOP::Class::_check_metaclass_compatibility</a>, avg 6µs/call
# spent 153µs making 2 calls to <a href="Moose-Meta-Class-pm-block.html#101">Moose::Meta::Class::_check_metaclass_compatibility</a>, avg 76µs/call</div></div></td></tr>
<tr><td class="h"><a name="92"></a>92</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="93"></a>93</td><td></td><td></td><td></td><td></td><td class="s"> Class::MOP::store_metaclass_by_name($package_name, $meta);<div class="calls"><div class="calls_out"> # spent 102µs making 61 calls to <a href="Class-MOP-pm-block.html#52">Class::MOP::store_metaclass_by_name</a>, avg 2µs/call</div></div></td></tr>
<tr><td class="h"><a name="94"></a>94</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="95"></a>95</td><td></td><td></td><td></td><td></td><td class="s"> # NOTE:</td></tr>
<tr><td class="h"><a name="96"></a>96</td><td></td><td></td><td></td><td></td><td class="s"> # we need to weaken any anon classes</td></tr>
<tr><td class="h"><a name="97"></a>97</td><td></td><td></td><td></td><td></td><td class="s"> # so that they can call DESTROY properly</td></tr>
<tr><td class="h"><a name="98"></a>98</td><td></td><td></td><td></td><td></td><td class="s"> Class::MOP::weaken_metaclass($package_name) if $meta->is_anon_class;<div class="calls"><div class="calls_out"> # spent 380µs making 61 calls to <a href="Class-MOP-Class-pm-block.html#221">Class::MOP::Class::is_anon_class</a>, avg 6µs/call</div></div></td></tr>
<tr><td class="h"><a name="99"></a>99</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="100"></a>100</td><td></td><td></td><td></td><td></td><td class="s"> $meta;</td></tr>
<tr><td class="h"><a name="101"></a>101</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="102"></a>102</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="103"></a>103</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 657µs within Class::MOP::Class::_new which was called 59 times, avg 11µs/call:
# 59 times (657µs+0s) by Class::MOP::Class::_construct_class_instance at <a href="Class-MOP-Class-pm-block.html#79">line 79</a>, avg 11µs/call</div></div>sub _new {</td></tr>
<tr><td class="h"><a name="104"></a>104</td><td class="c0">236</td><td class="c0"><span title="Avg 3µs">707µs</span></td><td></td><td></td><td class="s"> my $class = shift;</td></tr>
<tr><td class="h"><a name="105"></a>105</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="106"></a>106</td><td></td><td></td><td></td><td></td><td class="s"> return Class::MOP::Class->initialize($class)->new_object(@_)</td></tr>
<tr><td class="h"><a name="107"></a>107</td><td></td><td></td><td></td><td></td><td class="s"> if $class ne __PACKAGE__;</td></tr>
<tr><td class="h"><a name="108"></a>108</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="109"></a>109</td><td></td><td></td><td></td><td></td><td class="s"> my $options = @_ == 1 ? $_[0] : {@_};</td></tr>
<tr><td class="h"><a name="110"></a>110</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="111"></a>111</td><td></td><td></td><td></td><td></td><td class="s"> return bless {</td></tr>
<tr><td class="h"><a name="112"></a>112</td><td></td><td></td><td></td><td></td><td class="s"> # inherited from Class::MOP::Package</td></tr>
<tr><td class="h"><a name="113"></a>113</td><td></td><td></td><td></td><td></td><td class="s"> 'package' => $options->{package},</td></tr>
<tr><td class="h"><a name="114"></a>114</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="115"></a>115</td><td></td><td></td><td></td><td></td><td class="s"> # NOTE:</td></tr>
<tr><td class="h"><a name="116"></a>116</td><td></td><td></td><td></td><td></td><td class="s"> # since the following attributes will</td></tr>
<tr><td class="h"><a name="117"></a>117</td><td></td><td></td><td></td><td></td><td class="s"> # actually be loaded from the symbol</td></tr>
<tr><td class="h"><a name="118"></a>118</td><td></td><td></td><td></td><td></td><td class="s"> # table, and actually bypass the instance</td></tr>
<tr><td class="h"><a name="119"></a>119</td><td></td><td></td><td></td><td></td><td class="s"> # entirely, we can just leave these things</td></tr>
<tr><td class="h"><a name="120"></a>120</td><td></td><td></td><td></td><td></td><td class="s"> # listed here for reference, because they</td></tr>
<tr><td class="h"><a name="121"></a>121</td><td></td><td></td><td></td><td></td><td class="s"> # should not actually have a value associated</td></tr>
<tr><td class="h"><a name="122"></a>122</td><td></td><td></td><td></td><td></td><td class="s"> # with the slot.</td></tr>
<tr><td class="h"><a name="123"></a>123</td><td></td><td></td><td></td><td></td><td class="s"> 'namespace' => \undef,</td></tr>
<tr><td class="h"><a name="124"></a>124</td><td></td><td></td><td></td><td></td><td class="s"> 'methods' => {},</td></tr>
<tr><td class="h"><a name="125"></a>125</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="126"></a>126</td><td></td><td></td><td></td><td></td><td class="s"> # inherited from Class::MOP::Module</td></tr>
<tr><td class="h"><a name="127"></a>127</td><td></td><td></td><td></td><td></td><td class="s"> 'version' => \undef,</td></tr>
<tr><td class="h"><a name="128"></a>128</td><td></td><td></td><td></td><td></td><td class="s"> 'authority' => \undef,</td></tr>
<tr><td class="h"><a name="129"></a>129</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="130"></a>130</td><td></td><td></td><td></td><td></td><td class="s"> # defined in Class::MOP::Class</td></tr>
<tr><td class="h"><a name="131"></a>131</td><td></td><td></td><td></td><td></td><td class="s"> 'superclasses' => \undef,</td></tr>
<tr><td class="h"><a name="132"></a>132</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="133"></a>133</td><td></td><td></td><td></td><td></td><td class="s"> 'attributes' => {},</td></tr>
<tr><td class="h"><a name="134"></a>134</td><td></td><td></td><td></td><td></td><td class="s"> 'attribute_metaclass' =></td></tr>
<tr><td class="h"><a name="135"></a>135</td><td></td><td></td><td></td><td></td><td class="s"> ( $options->{'attribute_metaclass'} || 'Class::MOP::Attribute' ),</td></tr>
<tr><td class="h"><a name="136"></a>136</td><td></td><td></td><td></td><td></td><td class="s"> 'method_metaclass' =></td></tr>
<tr><td class="h"><a name="137"></a>137</td><td></td><td></td><td></td><td></td><td class="s"> ( $options->{'method_metaclass'} || 'Class::MOP::Method' ),</td></tr>
<tr><td class="h"><a name="138"></a>138</td><td></td><td></td><td></td><td></td><td class="s"> 'wrapped_method_metaclass' => (</td></tr>
<tr><td class="h"><a name="139"></a>139</td><td></td><td></td><td></td><td></td><td class="s"> $options->{'wrapped_method_metaclass'}</td></tr>
<tr><td class="h"><a name="140"></a>140</td><td></td><td></td><td></td><td></td><td class="s"> || 'Class::MOP::Method::Wrapped'</td></tr>
<tr><td class="h"><a name="141"></a>141</td><td></td><td></td><td></td><td></td><td class="s"> ),</td></tr>
<tr><td class="h"><a name="142"></a>142</td><td></td><td></td><td></td><td></td><td class="s"> 'instance_metaclass' =></td></tr>
<tr><td class="h"><a name="143"></a>143</td><td></td><td></td><td></td><td></td><td class="s"> ( $options->{'instance_metaclass'} || 'Class::MOP::Instance' ),</td></tr>
<tr><td class="h"><a name="144"></a>144</td><td></td><td></td><td></td><td></td><td class="s"> 'immutable_trait' => (</td></tr>
<tr><td class="h"><a name="145"></a>145</td><td></td><td></td><td></td><td></td><td class="s"> $options->{'immutable_trait'}</td></tr>
<tr><td class="h"><a name="146"></a>146</td><td></td><td></td><td></td><td></td><td class="s"> || 'Class::MOP::Class::Immutable::Trait'</td></tr>
<tr><td class="h"><a name="147"></a>147</td><td></td><td></td><td></td><td></td><td class="s"> ),</td></tr>
<tr><td class="h"><a name="148"></a>148</td><td></td><td></td><td></td><td></td><td class="s"> 'constructor_name' => ( $options->{constructor_name} || 'new' ),</td></tr>
<tr><td class="h"><a name="149"></a>149</td><td></td><td></td><td></td><td></td><td class="s"> 'constructor_class' => (</td></tr>
<tr><td class="h"><a name="150"></a>150</td><td></td><td></td><td></td><td></td><td class="s"> $options->{constructor_class} || 'Class::MOP::Method::Constructor'</td></tr>
<tr><td class="h"><a name="151"></a>151</td><td></td><td></td><td></td><td></td><td class="s"> ),</td></tr>
<tr><td class="h"><a name="152"></a>152</td><td></td><td></td><td></td><td></td><td class="s"> 'destructor_class' => $options->{destructor_class},</td></tr>
<tr><td class="h"><a name="153"></a>153</td><td></td><td></td><td></td><td></td><td class="s"> }, $class;</td></tr>
<tr><td class="h"><a name="154"></a>154</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="155"></a>155</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="156"></a>156</td><td></td><td></td><td></td><td></td><td class="s">sub reset_package_cache_flag { (shift)->{'_package_cache_flag'} = undef } </td></tr>
<tr><td class="h"><a name="157"></a>157</td><td></td><td></td><td></td><td></td><td class="s">sub update_package_cache_flag {</td></tr>
<tr><td class="h"><a name="158"></a>158</td><td></td><td></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="159"></a>159</td><td></td><td></td><td></td><td></td><td class="s"> # NOTE:</td></tr>
<tr><td class="h"><a name="160"></a>160</td><td></td><td></td><td></td><td></td><td class="s"> # we can manually update the cache number </td></tr>
<tr><td class="h"><a name="161"></a>161</td><td></td><td></td><td></td><td></td><td class="s"> # since we are actually adding the method</td></tr>
<tr><td class="h"><a name="162"></a>162</td><td></td><td></td><td></td><td></td><td class="s"> # to our cache as well. This avoids us </td></tr>
<tr><td class="h"><a name="163"></a>163</td><td></td><td></td><td></td><td></td><td class="s"> # having to regenerate the method_map.</td></tr>
<tr><td class="h"><a name="164"></a>164</td><td></td><td></td><td></td><td></td><td class="s"> # - SL </td></tr>
<tr><td class="h"><a name="165"></a>165</td><td></td><td></td><td></td><td></td><td class="s"> $self->{'_package_cache_flag'} = Class::MOP::check_package_cache_flag($self->name); </td></tr>
<tr><td class="h"><a name="166"></a>166</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="167"></a>167</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="168"></a>168</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 427µs (302+125) within Class::MOP::Class::_check_metaclass_compatibility which was called 64 times, avg 7µs/call:
# 59 times (252µs+89µs) by Class::MOP::Class::_construct_class_instance at <a href="Class-MOP-Class-pm-block.html#91">line 91</a>, avg 6µs/call
# 3 times (42µs+34µs) by Moose::Meta::Class::_check_metaclass_compatibility at <a href="Moose-Meta-Class-pm-block.html#108">line 108 of Moose/Meta/Class.pm</a>, avg 25µs/call
# 2 times (8µs+2µs) by Class::MOP::Class::superclasses at <a href="Class-MOP-Class-pm-block.html#579">line 579</a>, avg 5µs/call</div></div>sub _check_metaclass_compatibility {</td></tr>
<tr><td class="h"><a name="169"></a>169</td><td class="c1">137</td><td class="c2"><span title="Avg 2µs">223µs</span></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="170"></a>170</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="171"></a>171</td><td></td><td></td><td></td><td></td><td class="s"> # this is always okay ...</td></tr>
<tr><td class="h"><a name="172"></a>172</td><td></td><td></td><td></td><td></td><td class="s"> return if ref($self) eq 'Class::MOP::Class' &&<div class="calls"><div class="calls_out"> # spent 91µs making 61 calls to <a href="Class-MOP-Class-pm-block.html#333">Class::MOP::Class::instance_metaclass</a>, avg 1µs/call</div></div></td></tr>
<tr><td class="h"><a name="173"></a>173</td><td></td><td></td><td></td><td></td><td class="s"> $self->instance_metaclass eq 'Class::MOP::Instance';</td></tr>
<tr><td class="h"><a name="174"></a>174</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="175"></a>175</td><td></td><td></td><td></td><td></td><td class="s"> my @class_list = $self->linearized_isa;<div class="calls"><div class="calls_out"> # spent 29µs making 3 calls to <a href="Class-MOP-Class-pm-block.html#608">Class::MOP::Class::linearized_isa</a>, avg 10µs/call</div></div></td></tr>
<tr><td class="h"><a name="176"></a>176</td><td></td><td></td><td></td><td></td><td class="s"> shift @class_list; # shift off $self->name</td></tr>
<tr><td class="h"><a name="177"></a>177</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="178"></a>178</td><td></td><td></td><td></td><td></td><td class="s"> foreach my $superclass_name (@class_list) {</td></tr>
<tr><td class="h"><a name="179"></a>179</td><td class="c3">4</td><td class="c3"><span title="Avg 3µs">13µs</span></td><td class="c3">1</td><td class="c3">1µs</td><td class="s"> my $super_meta = Class::MOP::get_metaclass_by_name($superclass_name) || next;<div class="calls"><div class="calls_out"> # spent 1µs making 1 call to <a href="Class-MOP-pm-block.html#51">Class::MOP::get_metaclass_by_name</a></div></div></td></tr>
<tr><td class="h"><a name="180"></a>180</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="181"></a>181</td><td></td><td></td><td></td><td></td><td class="s"> # NOTE:</td></tr>
<tr><td class="h"><a name="182"></a>182</td><td></td><td></td><td></td><td></td><td class="s"> # we need to deal with the possibility</td></tr>
<tr><td class="h"><a name="183"></a>183</td><td></td><td></td><td></td><td></td><td class="s"> # of class immutability here, and then</td></tr>
<tr><td class="h"><a name="184"></a>184</td><td></td><td></td><td></td><td></td><td class="s"> # get the name of the class appropriately</td></tr>
<tr><td class="h"><a name="185"></a>185</td><td></td><td></td><td></td><td></td><td class="s"> my $super_meta_type<div class="calls"><div class="calls_out"> # spent 700ns making 1 call to <a href="Class-MOP-Class-pm-block.html#868">Class::MOP::Class::is_immutable</a></div></div></td></tr>
<tr><td class="h"><a name="186"></a>186</td><td></td><td></td><td></td><td></td><td class="s"> = $super_meta->is_immutable</td></tr>
<tr><td class="h"><a name="187"></a>187</td><td></td><td></td><td></td><td></td><td class="s"> ? $super_meta->_get_mutable_metaclass_name()</td></tr>
<tr><td class="h"><a name="188"></a>188</td><td></td><td></td><td></td><td></td><td class="s"> : ref($super_meta);</td></tr>
<tr><td class="h"><a name="189"></a>189</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="190"></a>190</td><td></td><td></td><td></td><td></td><td class="s"> ($self->isa($super_meta_type))<div class="calls"><div class="calls_out"> # spent 600ns making 1 call to <a >UNIVERSAL::isa</a></div></div></td></tr>
<tr><td class="h"><a name="191"></a>191</td><td></td><td></td><td></td><td></td><td class="s"> || confess "The metaclass of " . $self->name . " ("</td></tr>
<tr><td class="h"><a name="192"></a>192</td><td></td><td></td><td></td><td></td><td class="s"> . (ref($self)) . ")" . " is not compatible with the " .</td></tr>
<tr><td class="h"><a name="193"></a>193</td><td></td><td></td><td></td><td></td><td class="s"> "metaclass of its superclass, ".$superclass_name . " ("</td></tr>
<tr><td class="h"><a name="194"></a>194</td><td></td><td></td><td></td><td></td><td class="s"> . ($super_meta_type) . ")";</td></tr>
<tr><td class="h"><a name="195"></a>195</td><td></td><td></td><td></td><td></td><td class="s"> # NOTE:</td></tr>
<tr><td class="h"><a name="196"></a>196</td><td></td><td></td><td></td><td></td><td class="s"> # we also need to check that instance metaclasses</td></tr>
<tr><td class="h"><a name="197"></a>197</td><td></td><td></td><td></td><td></td><td class="s"> # are compatibile in the same the class.</td></tr>
<tr><td class="h"><a name="198"></a>198</td><td></td><td></td><td></td><td></td><td class="s"> ($self->instance_metaclass->isa($super_meta->instance_metaclass))<div class="calls"><div class="calls_out"> # spent 2µs making 2 calls to <a href="Class-MOP-Class-pm-block.html#333">Class::MOP::Class::instance_metaclass</a>, avg 1µs/call
# spent 1µs making 1 call to <a >UNIVERSAL::isa</a></div></div></td></tr>
<tr><td class="h"><a name="199"></a>199</td><td></td><td></td><td></td><td></td><td class="s"> || confess "The instance metaclass for " . $self->name . " (" . ($self->instance_metaclass) . ")" .</td></tr>
<tr><td class="h"><a name="200"></a>200</td><td></td><td></td><td></td><td></td><td class="s"> " is not compatible with the " .</td></tr>
<tr><td class="h"><a name="201"></a>201</td><td></td><td></td><td></td><td></td><td class="s"> "instance metaclass of its superclass, " . $superclass_name . " (" . ($super_meta->instance_metaclass) . ")";</td></tr>
<tr><td class="h"><a name="202"></a>202</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="203"></a>203</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="204"></a>204</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="205"></a>205</td><td></td><td></td><td></td><td></td><td class="s">## ANON classes</td></tr>
<tr><td class="h"><a name="206"></a>206</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="207"></a>207</td><td></td><td></td><td></td><td></td><td class="s">{</td></tr>
<tr><td class="h"><a name="208"></a>208</td><td></td><td></td><td></td><td></td><td class="s"> # NOTE:</td></tr>
<tr><td class="h"><a name="209"></a>209</td><td></td><td></td><td></td><td></td><td class="s"> # this should be sufficient, if you have a</td></tr>
<tr><td class="h"><a name="210"></a>210</td><td></td><td></td><td></td><td></td><td class="s"> # use case where it is not, write a test and</td></tr>
<tr><td class="h"><a name="211"></a>211</td><td></td><td></td><td></td><td></td><td class="s"> # I will change it.</td></tr>
<tr><td class="h"><a name="212"></a>212</td><td class="c3">3</td><td class="c3"><span title="Avg 233ns">700ns</span></td><td></td><td></td><td class="s"> my $ANON_CLASS_SERIAL = 0;</td></tr>
<tr><td class="h"><a name="213"></a>213</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="214"></a>214</td><td></td><td></td><td></td><td></td><td class="s"> # NOTE:</td></tr>
<tr><td class="h"><a name="215"></a>215</td><td></td><td></td><td></td><td></td><td class="s"> # we need a sufficiently annoying prefix</td></tr>
<tr><td class="h"><a name="216"></a>216</td><td></td><td></td><td></td><td></td><td class="s"> # this should suffice for now, this is</td></tr>
<tr><td class="h"><a name="217"></a>217</td><td></td><td></td><td></td><td></td><td class="s"> # used in a couple of places below, so</td></tr>
<tr><td class="h"><a name="218"></a>218</td><td></td><td></td><td></td><td></td><td class="s"> # need to put it up here for now.</td></tr>
<tr><td class="h"><a name="219"></a>219</td><td></td><td></td><td></td><td></td><td class="s"> my $ANON_CLASS_PREFIX = 'Class::MOP::Class::__ANON__::SERIAL::';</td></tr>
<tr><td class="h"><a name="220"></a>220</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="221"></a>221</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 416µs (330+86) within Class::MOP::Class::is_anon_class which was called 67 times, avg 6µs/call:
# 61 times (300µs+80µs) by Class::MOP::Class::_construct_class_instance at <a href="Class-MOP-Class-pm-block.html#98">line 98</a>, avg 6µs/call
# 6 times (30µs+6µs) by Class::MOP::Class::_construct_instance at <a href="Class-MOP-Class-pm-block.html#368">line 368</a>, avg 6µs/call</div></div> sub is_anon_class {</td></tr>
<tr><td class="h"><a name="222"></a>222</td><td class="c1">134</td><td class="c0"><span title="Avg 3µs">449µs</span></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="223"></a>223</td><td class="c3">3</td><td class="c3"><span title="Avg 29µs">86µs</span></td><td class="c3">2</td><td class="c3">32µs</td><td class="s"><div class="calls"><div class="calls_in"># spent 21µs (10+11) within Class::MOP::Class::BEGIN@223 which was called
# once (10µs+11µs) by Class::MOP::BEGIN@18 at <a href="Class-MOP-Class-pm-block.html#223">line 223</a></div></div> no warnings 'uninitialized';<div class="calls"><div class="calls_out"> # spent 21µs making 1 call to <a href="Class-MOP-Class-pm-block.html#223">Class::MOP::Class::BEGIN@223</a>
# spent 11µs making 1 call to <a href="warnings-pm-block.html#376">warnings::unimport</a></div></div></td></tr>
<tr><td class="h"><a name="224"></a>224</td><td></td><td></td><td></td><td></td><td class="s"> $self->name =~ /^$ANON_CLASS_PREFIX/o;<div class="calls"><div class="calls_out"> # spent 45µs making 67 calls to <a href="Class-MOP-Package-pm-block.html#Class__MOP__Package__name">Class::MOP::Package::name</a>, avg 676ns/call
# spent 31µs making 67 calls to <a href="Class-MOP-Class-pm-block.html#Class__MOP__Class__CORE_match">Class::MOP::Class::CORE:match</a>, avg 461ns/call
# spent 10µs making 1 call to <a href="Class-MOP-Class-pm-block.html#Class__MOP__Class__CORE_regcomp">Class::MOP::Class::CORE:regcomp</a></div></div></td></tr>
<tr><td class="h"><a name="225"></a>225</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="226"></a>226</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="227"></a>227</td><td></td><td></td><td></td><td></td><td class="s"> sub create_anon_class {</td></tr>
<tr><td class="h"><a name="228"></a>228</td><td></td><td></td><td></td><td></td><td class="s"> my ($class, %options) = @_;</td></tr>
<tr><td class="h"><a name="229"></a>229</td><td></td><td></td><td></td><td></td><td class="s"> my $package_name = $ANON_CLASS_PREFIX . ++$ANON_CLASS_SERIAL;</td></tr>
<tr><td class="h"><a name="230"></a>230</td><td></td><td></td><td></td><td></td><td class="s"> return $class->create($package_name, %options);</td></tr>
<tr><td class="h"><a name="231"></a>231</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="232"></a>232</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="233"></a>233</td><td></td><td></td><td></td><td></td><td class="s"> # NOTE:</td></tr>
<tr><td class="h"><a name="234"></a>234</td><td></td><td></td><td></td><td></td><td class="s"> # this will only get called for</td></tr>
<tr><td class="h"><a name="235"></a>235</td><td></td><td></td><td></td><td></td><td class="s"> # anon-classes, all other calls</td></tr>
<tr><td class="h"><a name="236"></a>236</td><td></td><td></td><td></td><td></td><td class="s"> # are assumed to occur during</td></tr>
<tr><td class="h"><a name="237"></a>237</td><td></td><td></td><td></td><td></td><td class="s"> # global destruction and so don't</td></tr>
<tr><td class="h"><a name="238"></a>238</td><td></td><td></td><td></td><td></td><td class="s"> # really need to be handled explicitly</td></tr>
<tr><td class="h"><a name="239"></a>239</td><td></td><td></td><td></td><td></td><td class="s"> sub DESTROY {</td></tr>
<tr><td class="h"><a name="240"></a>240</td><td></td><td></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="241"></a>241</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="242"></a>242</td><td></td><td></td><td></td><td></td><td class="s"> return if in_global_destruction(); # it'll happen soon anyway and this just makes things more complicated</td></tr>
<tr><td class="h"><a name="243"></a>243</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="244"></a>244</td><td class="c3">3</td><td class="c3"><span title="Avg 23µs">69µs</span></td><td class="c3">2</td><td class="c3">26µs</td><td class="s"><div class="calls"><div class="calls_in"># spent 17µs (9+9) within Class::MOP::Class::BEGIN@244 which was called
# once (9µs+9µs) by Class::MOP::BEGIN@18 at <a href="Class-MOP-Class-pm-block.html#244">line 244</a></div></div> no warnings 'uninitialized';<div class="calls"><div class="calls_out"> # spent 17µs making 1 call to <a href="Class-MOP-Class-pm-block.html#244">Class::MOP::Class::BEGIN@244</a>
# spent 9µs making 1 call to <a href="warnings-pm-block.html#376">warnings::unimport</a></div></div></td></tr>
<tr><td class="h"><a name="245"></a>245</td><td></td><td></td><td></td><td></td><td class="s"> my $name = $self->name;</td></tr>
<tr><td class="h"><a name="246"></a>246</td><td></td><td></td><td></td><td></td><td class="s"> return unless $name =~ /^$ANON_CLASS_PREFIX/o;</td></tr>
<tr><td class="h"><a name="247"></a>247</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="248"></a>248</td><td></td><td></td><td></td><td></td><td class="s"> # Moose does a weird thing where it replaces the metaclass for</td></tr>
<tr><td class="h"><a name="249"></a>249</td><td></td><td></td><td></td><td></td><td class="s"> # class when fixing metaclass incompatibility. In that case,</td></tr>
<tr><td class="h"><a name="250"></a>250</td><td></td><td></td><td></td><td></td><td class="s"> # we don't want to clean out the namespace now. We can detect</td></tr>
<tr><td class="h"><a name="251"></a>251</td><td></td><td></td><td></td><td></td><td class="s"> # that because Moose will explicitly update the singleton</td></tr>
<tr><td class="h"><a name="252"></a>252</td><td></td><td></td><td></td><td></td><td class="s"> # cache in Class::MOP.</td></tr>
<tr><td class="h"><a name="253"></a>253</td><td></td><td></td><td></td><td></td><td class="s"> my $current_meta = Class::MOP::get_metaclass_by_name($name);</td></tr>
<tr><td class="h"><a name="254"></a>254</td><td></td><td></td><td></td><td></td><td class="s"> return if $current_meta ne $self;</td></tr>
<tr><td class="h"><a name="255"></a>255</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="256"></a>256</td><td></td><td></td><td></td><td></td><td class="s"> my ($serial_id) = ($name =~ /^$ANON_CLASS_PREFIX(\d+)/o);</td></tr>
<tr><td class="h"><a name="257"></a>257</td><td class="c3">3</td><td class="c0"><span title="Avg 936µs">2.81ms</span></td><td class="c3">2</td><td class="c3">27µs</td><td class="s"><div class="calls"><div class="calls_in"># spent 17µs (7+10) within Class::MOP::Class::BEGIN@257 which was called
# once (7µs+10µs) by Class::MOP::BEGIN@18 at <a href="Class-MOP-Class-pm-block.html#257">line 257</a></div></div> no strict 'refs';<div class="calls"><div class="calls_out"> # spent 17µs making 1 call to <a href="Class-MOP-Class-pm-block.html#257">Class::MOP::Class::BEGIN@257</a>
# spent 10µs making 1 call to <a href="strict-pm-block.html#39">strict::unimport</a></div></div></td></tr>
<tr><td class="h"><a name="258"></a>258</td><td></td><td></td><td></td><td></td><td class="s"> @{$name . '::ISA'} = ();</td></tr>
<tr><td class="h"><a name="259"></a>259</td><td></td><td></td><td></td><td></td><td class="s"> %{$name . '::'} = ();</td></tr>
<tr><td class="h"><a name="260"></a>260</td><td></td><td></td><td></td><td></td><td class="s"> delete ${$ANON_CLASS_PREFIX}{$serial_id . '::'};</td></tr>
<tr><td class="h"><a name="261"></a>261</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="262"></a>262</td><td></td><td></td><td></td><td></td><td class="s"> Class::MOP::remove_metaclass_by_name($name);</td></tr>
<tr><td class="h"><a name="263"></a>263</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="264"></a>264</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="265"></a>265</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="266"></a>266</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="267"></a>267</td><td></td><td></td><td></td><td></td><td class="s"># creating classes with MOP ...</td></tr>
<tr><td class="h"><a name="268"></a>268</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="269"></a>269</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 550µs (79+471) within Class::MOP::Class::create which was called 2 times, avg 275µs/call:
# 2 times (79µs+471µs) by Class::MOP::Class::_immutable_metaclass at <a href="Class-MOP-Class-pm-block.html#961">line 961</a>, avg 275µs/call</div></div>sub create {</td></tr>
<tr><td class="h"><a name="270"></a>270</td><td class="c3">32</td><td class="c3"><span title="Avg 2µs">67µs</span></td><td></td><td></td><td class="s"> my ( $class, @args ) = @_;</td></tr>
<tr><td class="h"><a name="271"></a>271</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="272"></a>272</td><td></td><td></td><td></td><td></td><td class="s"> unshift @args, 'package' if @args % 2 == 1;</td></tr>
<tr><td class="h"><a name="273"></a>273</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="274"></a>274</td><td></td><td></td><td></td><td></td><td class="s"> my (%options) = @args;</td></tr>
<tr><td class="h"><a name="275"></a>275</td><td></td><td></td><td></td><td></td><td class="s"> my $package_name = $options{package};</td></tr>
<tr><td class="h"><a name="276"></a>276</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="277"></a>277</td><td></td><td></td><td></td><td></td><td class="s"> (ref $options{superclasses} eq 'ARRAY')</td></tr>
<tr><td class="h"><a name="278"></a>278</td><td></td><td></td><td></td><td></td><td class="s"> || confess "You must pass an ARRAY ref of superclasses"</td></tr>
<tr><td class="h"><a name="279"></a>279</td><td></td><td></td><td></td><td></td><td class="s"> if exists $options{superclasses};</td></tr>
<tr><td class="h"><a name="280"></a>280</td><td></td><td></td><td></td><td></td><td class="s"> </td></tr>
<tr><td class="h"><a name="281"></a>281</td><td></td><td></td><td></td><td></td><td class="s"> (ref $options{attributes} eq 'ARRAY')</td></tr>
<tr><td class="h"><a name="282"></a>282</td><td></td><td></td><td></td><td></td><td class="s"> || confess "You must pass an ARRAY ref of attributes"</td></tr>
<tr><td class="h"><a name="283"></a>283</td><td></td><td></td><td></td><td></td><td class="s"> if exists $options{attributes}; </td></tr>
<tr><td class="h"><a name="284"></a>284</td><td></td><td></td><td></td><td></td><td class="s"> </td></tr>
<tr><td class="h"><a name="285"></a>285</td><td></td><td></td><td></td><td></td><td class="s"> (ref $options{methods} eq 'HASH')</td></tr>
<tr><td class="h"><a name="286"></a>286</td><td></td><td></td><td></td><td></td><td class="s"> || confess "You must pass a HASH ref of methods"</td></tr>
<tr><td class="h"><a name="287"></a>287</td><td></td><td></td><td></td><td></td><td class="s"> if exists $options{methods}; </td></tr>
<tr><td class="h"><a name="288"></a>288</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="289"></a>289</td><td></td><td></td><td></td><td></td><td class="s"> my (%initialize_options) = @args;</td></tr>
<tr><td class="h"><a name="290"></a>290</td><td></td><td></td><td></td><td></td><td class="s"> delete @initialize_options{qw(</td></tr>
<tr><td class="h"><a name="291"></a>291</td><td></td><td></td><td></td><td></td><td class="s"> package</td></tr>
<tr><td class="h"><a name="292"></a>292</td><td></td><td></td><td></td><td></td><td class="s"> superclasses</td></tr>
<tr><td class="h"><a name="293"></a>293</td><td></td><td></td><td></td><td></td><td class="s"> attributes</td></tr>
<tr><td class="h"><a name="294"></a>294</td><td></td><td></td><td></td><td></td><td class="s"> methods</td></tr>
<tr><td class="h"><a name="295"></a>295</td><td></td><td></td><td></td><td></td><td class="s"> version</td></tr>
<tr><td class="h"><a name="296"></a>296</td><td></td><td></td><td></td><td></td><td class="s"> authority</td></tr>
<tr><td class="h"><a name="297"></a>297</td><td></td><td></td><td></td><td></td><td class="s"> )};</td></tr>
<tr><td class="h"><a name="298"></a>298</td><td></td><td></td><td></td><td></td><td class="s"> my $meta = $class->initialize( $package_name => %initialize_options );<div class="calls"><div class="calls_out"> # spent 119µs making 2 calls to <a href="Class-MOP-Class-pm-block.html#26">Class::MOP::Class::initialize</a>, avg 60µs/call</div></div></td></tr>
<tr><td class="h"><a name="299"></a>299</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="300"></a>300</td><td></td><td></td><td></td><td></td><td class="s"> $meta->_instantiate_module( $options{version}, $options{authority} );<div class="calls"><div class="calls_out"> # spent 74µs making 2 calls to <a href="Class-MOP-Module-pm-block.html#57">Class::MOP::Module::_instantiate_module</a>, avg 37µs/call</div></div></td></tr>
<tr><td class="h"><a name="301"></a>301</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="302"></a>302</td><td></td><td></td><td></td><td></td><td class="s"> # FIXME totally lame</td></tr>
<tr><td class="h"><a name="303"></a>303</td><td></td><td></td><td></td><td></td><td class="s"> $meta->add_method('meta' => sub {</td></tr>
<tr><td class="h"><a name="304"></a>304</td><td></td><td></td><td></td><td></td><td class="s"> $class->initialize(ref($_[0]) || $_[0]);</td></tr>
<tr><td class="h"><a name="305"></a>305</td><td></td><td></td><td></td><td></td><td class="s"> });<div class="calls"><div class="calls_out"> # spent 78µs making 2 calls to <a href="Class-MOP-Mixin-HasMethods-pm-block.html#37">Class::MOP::Mixin::HasMethods::add_method</a>, avg 39µs/call</div></div></td></tr>
<tr><td class="h"><a name="306"></a>306</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="307"></a>307</td><td></td><td></td><td></td><td></td><td class="s"> $meta->superclasses(@{$options{superclasses}})<div class="calls"><div class="calls_out"> # spent 201µs making 2 calls to <a href="Class-MOP-Class-pm-block.html#558">Class::MOP::Class::superclasses</a>, avg 100µs/call</div></div></td></tr>
<tr><td class="h"><a name="308"></a>308</td><td></td><td></td><td></td><td></td><td class="s"> if exists $options{superclasses};</td></tr>
<tr><td class="h"><a name="309"></a>309</td><td></td><td></td><td></td><td></td><td class="s"> # NOTE:</td></tr>
<tr><td class="h"><a name="310"></a>310</td><td></td><td></td><td></td><td></td><td class="s"> # process attributes first, so that they can</td></tr>
<tr><td class="h"><a name="311"></a>311</td><td></td><td></td><td></td><td></td><td class="s"> # install accessors, but locally defined methods</td></tr>
<tr><td class="h"><a name="312"></a>312</td><td></td><td></td><td></td><td></td><td class="s"> # can then overwrite them. It is maybe a little odd, but</td></tr>
<tr><td class="h"><a name="313"></a>313</td><td></td><td></td><td></td><td></td><td class="s"> # I think this should be the order of things.</td></tr>
<tr><td class="h"><a name="314"></a>314</td><td></td><td></td><td></td><td></td><td class="s"> if (exists $options{attributes}) {</td></tr>
<tr><td class="h"><a name="315"></a>315</td><td></td><td></td><td></td><td></td><td class="s"> foreach my $attr (@{$options{attributes}}) {</td></tr>
<tr><td class="h"><a name="316"></a>316</td><td></td><td></td><td></td><td></td><td class="s"> $meta->add_attribute($attr);</td></tr>
<tr><td class="h"><a name="317"></a>317</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="318"></a>318</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="319"></a>319</td><td></td><td></td><td></td><td></td><td class="s"> if (exists $options{methods}) {</td></tr>
<tr><td class="h"><a name="320"></a>320</td><td></td><td></td><td></td><td></td><td class="s"> foreach my $method_name (keys %{$options{methods}}) {</td></tr>
<tr><td class="h"><a name="321"></a>321</td><td></td><td></td><td></td><td></td><td class="s"> $meta->add_method($method_name, $options{methods}->{$method_name});</td></tr>
<tr><td class="h"><a name="322"></a>322</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="323"></a>323</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="324"></a>324</td><td></td><td></td><td></td><td></td><td class="s"> return $meta;</td></tr>
<tr><td class="h"><a name="325"></a>325</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="326"></a>326</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="327"></a>327</td><td></td><td></td><td></td><td></td><td class="s">## Attribute readers</td></tr>
<tr><td class="h"><a name="328"></a>328</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="329"></a>329</td><td></td><td></td><td></td><td></td><td class="s"># NOTE:</td></tr>
<tr><td class="h"><a name="330"></a>330</td><td></td><td></td><td></td><td></td><td class="s"># all these attribute readers will be bootstrapped</td></tr>
<tr><td class="h"><a name="331"></a>331</td><td></td><td></td><td></td><td></td><td class="s"># away in the Class::MOP bootstrap section</td></tr>
<tr><td class="h"><a name="332"></a>332</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="333"></a>333</td><td class="c0">270</td><td class="c0"><span title="Avg 2µs">566µs</span></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 321µs within Class::MOP::Class::instance_metaclass which was called 270 times, avg 1µs/call:
# 84 times (94µs+0s) by Class::MOP::Attribute::_process_accessors at <a href="Class-MOP-Attribute-pm-block.html#320">line 320 of Class/MOP/Attribute.pm</a>, avg 1µs/call
# 61 times (91µs+0s) by Class::MOP::Class::_check_metaclass_compatibility at <a href="Class-MOP-Class-pm-block.html#172">line 172</a>, avg 1µs/call
# 52 times (58µs+0s) by Class::MOP::Method::Accessor::_generate_reader_method_inline at <a href="Class-MOP-Method-Accessor-pm-block.html#155">line 155 of Class/MOP/Method/Accessor.pm</a>, avg 1µs/call
# 38 times (43µs+0s) by Class::MOP::Class::_create_meta_instance at <a href="Class-MOP-Class-pm-block.html#390">line 390</a>, avg 1µs/call
# 15 times (15µs+0s) by Class::MOP::Method::Accessor::_generate_accessor_method_inline at <a href="Class-MOP-Method-Accessor-pm-block.html#136">line 136 of Class/MOP/Method/Accessor.pm</a>, avg 987ns/call
# 13 times (13µs+0s) by Class::MOP::Method::Accessor::_generate_predicate_method_inline at <a href="Class-MOP-Method-Accessor-pm-block.html#190">line 190 of Class/MOP/Method/Accessor.pm</a>, avg 1µs/call
# 3 times (3µs+0s) by Class::MOP::Method::Accessor::_generate_writer_method_inline at <a href="Class-MOP-Method-Accessor-pm-block.html#173">line 173 of Class/MOP/Method/Accessor.pm</a>, avg 1µs/call
# 2 times (3µs+0s) by Moose::Meta::Class::_superclass_meta_is_compatible at <a href="Moose-Meta-Class-pm-block.html#378">line 378 of Moose/Meta/Class.pm</a>, avg 1µs/call
# 2 times (2µs+0s) by Class::MOP::Class::_check_metaclass_compatibility at <a href="Class-MOP-Class-pm-block.html#198">line 198</a>, avg 1µs/call</div></div>sub instance_metaclass { $_[0]->{'instance_metaclass'} }</td></tr>
<tr><td class="h"><a name="334"></a>334</td><td class="c2">100</td><td class="c2"><span title="Avg 2µs">224µs</span></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 138µs within Class::MOP::Class::immutable_trait which was called 100 times, avg 1µs/call:
# 50 times (80µs+0s) by Class::MOP::Class::_immutable_options at <a href="Class-MOP-Class-pm-block.html#876">line 876</a>, avg 2µs/call
# 50 times (58µs+0s) by Class::MOP::Class::_immutable_metaclass at <a href="Class-MOP-Class-pm-block.html#931">line 931</a>, avg 1µs/call</div></div>sub immutable_trait { $_[0]->{'immutable_trait'} }</td></tr>
<tr><td class="h"><a name="335"></a>335</td><td class="c3">50</td><td class="c3"><span title="Avg 2µs">95µs</span></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 59µs within Class::MOP::Class::constructor_class which was called 50 times, avg 1µs/call:
# 50 times (59µs+0s) by Class::MOP::Class::_immutable_options at <a href="Class-MOP-Class-pm-block.html#876">line 876</a>, avg 1µs/call</div></div>sub constructor_class { $_[0]->{'constructor_class'} }</td></tr>
<tr><td class="h"><a name="336"></a>336</td><td class="c3">51</td><td class="c3"><span title="Avg 2µs">98µs</span></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 67µs within Class::MOP::Class::constructor_name which was called 51 times, avg 1µs/call:
# 51 times (67µs+0s) by Class::MOP::Class::_immutable_options at <a href="Class-MOP-Class-pm-block.html#876">line 876</a>, avg 1µs/call</div></div>sub constructor_name { $_[0]->{'constructor_name'} }</td></tr>
<tr><td class="h"><a name="337"></a>337</td><td class="c3">50</td><td class="c3"><span title="Avg 2µs">79µs</span></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 47µs within Class::MOP::Class::destructor_class which was called 50 times, avg 936ns/call:
# 50 times (47µs+0s) by Class::MOP::Class::_immutable_options at <a href="Class-MOP-Class-pm-block.html#876">line 876</a>, avg 936ns/call</div></div>sub destructor_class { $_[0]->{'destructor_class'} }</td></tr>
<tr><td class="h"><a name="338"></a>338</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="339"></a>339</td><td></td><td></td><td></td><td></td><td class="s"># Instance Construction & Cloning</td></tr>
<tr><td class="h"><a name="340"></a>340</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="341"></a>341</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 1.90ms (47µs+1.85) within Class::MOP::Class::new_object which was called 4 times, avg 475µs/call:
# 2 times (20µs+951µs) by Class::MOP::Method::_new at <a href="Class-MOP-Method-pm-block.html#54">line 54 of Class/MOP/Method.pm</a>, avg 486µs/call
# once (14µs+618µs) by Class::MOP::Attribute::_new at <a href="Class-MOP-Attribute-pm-block.html#62">line 62 of Class/MOP/Attribute.pm</a>
# once (13µs+284µs) by Class::MOP::Object::_new at <a href="Class-MOP-Object-pm-block.html#21">line 21 of Class/MOP/Object.pm</a></div></div>sub new_object {</td></tr>
<tr><td class="h"><a name="342"></a>342</td><td class="c3">12</td><td class="c3"><span title="Avg 5µs">59µs</span></td><td></td><td></td><td class="s"> my $class = shift;</td></tr>
<tr><td class="h"><a name="343"></a>343</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="344"></a>344</td><td></td><td></td><td></td><td></td><td class="s"> # NOTE:</td></tr>
<tr><td class="h"><a name="345"></a>345</td><td></td><td></td><td></td><td></td><td class="s"> # we need to protect the integrity of the</td></tr>
<tr><td class="h"><a name="346"></a>346</td><td></td><td></td><td></td><td></td><td class="s"> # Class::MOP::Class singletons here, so we</td></tr>
<tr><td class="h"><a name="347"></a>347</td><td></td><td></td><td></td><td></td><td class="s"> # delegate this to &construct_class_instance</td></tr>
<tr><td class="h"><a name="348"></a>348</td><td></td><td></td><td></td><td></td><td class="s"> # which will deal with the singletons</td></tr>
<tr><td class="h"><a name="349"></a>349</td><td></td><td></td><td></td><td></td><td class="s"> return $class->_construct_class_instance(@_)<div class="calls"><div class="calls_out"> # spent 8µs making 4 calls to <a >UNIVERSAL::isa</a>, avg 2µs/call
# spent 3µs making 4 calls to <a href="Class-MOP-Package-pm-block.html#Class__MOP__Package__name">Class::MOP::Package::name</a>, avg 675ns/call</div></div></td></tr>
<tr><td class="h"><a name="350"></a>350</td><td></td><td></td><td></td><td></td><td class="s"> if $class->name->isa('Class::MOP::Class');</td></tr>
<tr><td class="h"><a name="351"></a>351</td><td></td><td></td><td></td><td></td><td class="s"> return $class->_construct_instance(@_);<div class="calls"><div class="calls_out"> # spent 1.84ms making 4 calls to <a href="Class-MOP-Class-pm-block.html#354">Class::MOP::Class::_construct_instance</a>, avg 460µs/call</div></div></td></tr>
<tr><td class="h"><a name="352"></a>352</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="353"></a>353</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="354"></a>354</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 3.27ms (294µs+2.98) within Class::MOP::Class::_construct_instance which was called 6 times, avg 546µs/call:
# 4 times (175µs+1.67ms) by Class::MOP::Class::new_object at <a href="Class-MOP-Class-pm-block.html#351">line 351</a>, avg 460µs/call
# 2 times (119µs+1.31ms) by Class::MOP::Class::_construct_class_instance at <a href="Class-MOP-Class-pm-block.html#87">line 87</a>, avg 717µs/call</div></div>sub _construct_instance {</td></tr>
<tr><td class="h"><a name="355"></a>355</td><td class="c3">42</td><td class="c3"><span title="Avg 2µs">75µs</span></td><td></td><td></td><td class="s"> my $class = shift;</td></tr>
<tr><td class="h"><a name="356"></a>356</td><td></td><td></td><td></td><td></td><td class="s"> my $params = @_ == 1 ? $_[0] : {@_};</td></tr>
<tr><td class="h"><a name="357"></a>357</td><td></td><td></td><td></td><td></td><td class="s"> my $meta_instance = $class->get_meta_instance();<div class="calls"><div class="calls_out"> # spent 875µs making 5 calls to <a href="Class-MOP-Class-pm-block.html#382">Class::MOP::Class::get_meta_instance</a>, avg 175µs/call
# spent 18µs making 1 call to <a >Class::MOP::Class::Immutable::Class::MOP::Class::get_meta_instance</a></div></div></td></tr>
<tr><td class="h"><a name="358"></a>358</td><td></td><td></td><td></td><td></td><td class="s"> # FIXME:</td></tr>
<tr><td class="h"><a name="359"></a>359</td><td></td><td></td><td></td><td></td><td class="s"> # the code below is almost certainly incorrect</td></tr>
<tr><td class="h"><a name="360"></a>360</td><td></td><td></td><td></td><td></td><td class="s"> # but this is foreign inheritance, so we might</td></tr>
<tr><td class="h"><a name="361"></a>361</td><td></td><td></td><td></td><td></td><td class="s"> # have to kludge it in the end.</td></tr>
<tr><td class="h"><a name="362"></a>362</td><td></td><td></td><td></td><td></td><td class="s"> my $instance = $params->{__INSTANCE__} || $meta_instance->create_instance();<div class="calls"><div class="calls_out"> # spent 399µs making 6 calls to <a href="Class-MOP-Instance-pm-block.html#75">Class::MOP::Instance::create_instance</a>, avg 67µs/call</div></div></td></tr>
<tr><td class="h"><a name="363"></a>363</td><td></td><td></td><td></td><td></td><td class="s"> foreach my $attr ($class->get_all_attributes()) {<div class="calls"><div class="calls_out"> # spent 347µs making 5 calls to <a href="Class-MOP-Class-pm-block.html#549">Class::MOP::Class::get_all_attributes</a>, avg 69µs/call
# spent 144µs making 1 call to <a >Class::MOP::Class::Immutable::Class::MOP::Class::get_all_attributes</a></div></div></td></tr>
<tr><td class="h"><a name="364"></a>364</td><td class="c3">84</td><td class="c3"><span title="Avg 1µs">104µs</span></td><td class="c0">84</td><td class="c0">1.16ms</td><td class="s"> $attr->initialize_instance_slot($meta_instance, $instance, $params);<div class="calls"><div class="calls_out"> # spent 1.16ms making 84 calls to <a href="Class-MOP-Attribute-pm-block.html#105">Class::MOP::Attribute::initialize_instance_slot</a>, avg 14µs/call</div></div></td></tr>
<tr><td class="h"><a name="365"></a>365</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="366"></a>366</td><td></td><td></td><td></td><td></td><td class="s"> # NOTE:</td></tr>
<tr><td class="h"><a name="367"></a>367</td><td></td><td></td><td></td><td></td><td class="s"> # this will only work for a HASH instance type</td></tr>
<tr><td class="h"><a name="368"></a>368</td><td></td><td></td><td></td><td></td><td class="s"> if ($class->is_anon_class) {<div class="calls"><div class="calls_out"> # spent 36µs making 6 calls to <a href="Class-MOP-Class-pm-block.html#221">Class::MOP::Class::is_anon_class</a>, avg 6µs/call</div></div></td></tr>
<tr><td class="h"><a name="369"></a>369</td><td></td><td></td><td></td><td></td><td class="s"> (reftype($instance) eq 'HASH')</td></tr>
<tr><td class="h"><a name="370"></a>370</td><td></td><td></td><td></td><td></td><td class="s"> || confess "Currently only HASH based instances are supported with instance of anon-classes";</td></tr>
<tr><td class="h"><a name="371"></a>371</td><td></td><td></td><td></td><td></td><td class="s"> # NOTE:</td></tr>
<tr><td class="h"><a name="372"></a>372</td><td></td><td></td><td></td><td></td><td class="s"> # At some point we should make this official</td></tr>
<tr><td class="h"><a name="373"></a>373</td><td></td><td></td><td></td><td></td><td class="s"> # as a reserved slot name, but right now I am</td></tr>
<tr><td class="h"><a name="374"></a>374</td><td></td><td></td><td></td><td></td><td class="s"> # going to keep it here.</td></tr>
<tr><td class="h"><a name="375"></a>375</td><td></td><td></td><td></td><td></td><td class="s"> # my $RESERVED_MOP_SLOT = '__MOP__';</td></tr>
<tr><td class="h"><a name="376"></a>376</td><td></td><td></td><td></td><td></td><td class="s"> $instance->{'__MOP__'} = $class;</td></tr>
<tr><td class="h"><a name="377"></a>377</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="378"></a>378</td><td></td><td></td><td></td><td></td><td class="s"> return $instance;</td></tr>
<tr><td class="h"><a name="379"></a>379</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="380"></a>380</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="381"></a>381</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="382"></a>382</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 5.69ms (177µs+5.52) within Class::MOP::Class::get_meta_instance which was called 63 times, avg 90µs/call:
# 32 times (101µs+3.74ms) by Class::MOP::Method::Constructor::_meta_instance at <a href="Class-MOP-Method-Constructor-pm-block.html#77">line 77 of Class/MOP/Method/Constructor.pm</a>, avg 120µs/call
# 6 times (24µs+605µs) by Moose::Meta::Method::Accessor::_inline_get at <a href="Moose-Meta-Method-Accessor-pm-block.html#252">line 252 of Moose/Meta/Method/Accessor.pm</a>, avg 105µs/call
# 6 times (10µs+105µs) by Class::MOP::Class::_clone_instance at <a href="Class-MOP-Class-pm-block.html#419">line 419</a>, avg 19µs/call
# 6 times (7µs+0s) by Class::MOP::Attribute::set_raw_value at <a href="Class-MOP-Attribute-pm-block.html#264">line 264 of Class/MOP/Attribute.pm</a>, avg 1µs/call
# 5 times (19µs+856µs) by Class::MOP::Class::_construct_instance at <a href="Class-MOP-Class-pm-block.html#357">line 357</a>, avg 175µs/call
# 3 times (4µs+0s) by Class::MOP::Class:::around at <a href="Class-MOP-Class-Immutable-Trait-pm-block.html#74">line 74 of Class/MOP/Class/Immutable/Trait.pm</a>, avg 1µs/call
# 3 times (4µs+0s) by Class::MOP::Attribute::get_raw_value at <a href="Class-MOP-Attribute-pm-block.html#272">line 272 of Class/MOP/Attribute.pm</a>, avg 1µs/call
# once (6µs+208µs) by Moose::Exporter::BEGIN@11 at <a href="Class-MOP-pm-block.html#663">line 663 of Class/MOP.pm</a>
# once (2µs+0s) by Class::MOP::Attribute::has_value at <a href="Class-MOP-Attribute-pm-block.html#280">line 280 of Class/MOP/Attribute.pm</a></div></div>sub get_meta_instance {</td></tr>
<tr><td class="h"><a name="383"></a>383</td><td class="c1">126</td><td class="c2"><span title="Avg 2µs">191µs</span></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="384"></a>384</td><td></td><td></td><td></td><td></td><td class="s"> $self->{'_meta_instance'} ||= $self->_create_meta_instance();<div class="calls"><div class="calls_out"> # spent 5.52ms making 38 calls to <a href="Class-MOP-Class-pm-block.html#387">Class::MOP::Class::_create_meta_instance</a>, avg 145µs/call</div></div></td></tr>
<tr><td class="h"><a name="385"></a>385</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="386"></a>386</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="387"></a>387</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 5.52ms (457µs+5.06) within Class::MOP::Class::_create_meta_instance which was called 38 times, avg 145µs/call:
# 38 times (457µs+5.06ms) by Class::MOP::Class::get_meta_instance at <a href="Class-MOP-Class-pm-block.html#384">line 384</a>, avg 145µs/call</div></div>sub _create_meta_instance {</td></tr>
<tr><td class="h"><a name="388"></a>388</td><td class="c1">152</td><td class="c1"><span title="Avg 2µs">313µs</span></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="389"></a>389</td><td></td><td></td><td></td><td></td><td class="s"> </td></tr>
<tr><td class="h"><a name="390"></a>390</td><td></td><td></td><td></td><td></td><td class="s"> my $instance = $self->instance_metaclass->new(<div class="calls"><div class="calls_out"> # spent 2.85ms making 38 calls to <a href="Class-MOP-Instance-pm-block.html#34">Class::MOP::Instance::new</a>, avg 75µs/call
# spent 2.13ms making 38 calls to <a href="Class-MOP-Class-pm-block.html#549">Class::MOP::Class::get_all_attributes</a>, avg 56µs/call
# spent 43µs making 38 calls to <a href="Class-MOP-Class-pm-block.html#333">Class::MOP::Class::instance_metaclass</a>, avg 1µs/call</div></div></td></tr>
<tr><td class="h"><a name="391"></a>391</td><td></td><td></td><td></td><td></td><td class="s"> associated_metaclass => $self,</td></tr>
<tr><td class="h"><a name="392"></a>392</td><td></td><td></td><td></td><td></td><td class="s"> attributes => [ $self->get_all_attributes() ],</td></tr>
<tr><td class="h"><a name="393"></a>393</td><td></td><td></td><td></td><td></td><td class="s"> );</td></tr>
<tr><td class="h"><a name="394"></a>394</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="395"></a>395</td><td></td><td></td><td></td><td></td><td class="s"> $self->add_meta_instance_dependencies()<div class="calls"><div class="calls_out"> # spent 36µs making 38 calls to <a href="Class-MOP-Instance-pm-block.html#160">Class::MOP::Instance::is_dependent_on_superclasses</a>, avg 937ns/call</div></div></td></tr>
<tr><td class="h"><a name="396"></a>396</td><td></td><td></td><td></td><td></td><td class="s"> if $instance->is_dependent_on_superclasses();</td></tr>
<tr><td class="h"><a name="397"></a>397</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="398"></a>398</td><td></td><td></td><td></td><td></td><td class="s"> return $instance;</td></tr>
<tr><td class="h"><a name="399"></a>399</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="400"></a>400</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="401"></a>401</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 1.40ms (130µs+1.27) within Class::MOP::Class::clone_object which was called 12 times, avg 117µs/call:
# 12 times (130µs+1.27ms) by Class::MOP::Method::clone at <a href="Class-MOP-pm-block.html#538">line 538 of Class/MOP.pm</a>, avg 117µs/call</div></div>sub clone_object {</td></tr>
<tr><td class="h"><a name="402"></a>402</td><td class="c3">60</td><td class="c3"><span title="Avg 3µs">153µs</span></td><td></td><td></td><td class="s"> my $class = shift;</td></tr>
<tr><td class="h"><a name="403"></a>403</td><td></td><td></td><td></td><td></td><td class="s"> my $instance = shift;</td></tr>
<tr><td class="h"><a name="404"></a>404</td><td></td><td></td><td></td><td></td><td class="s"> (blessed($instance) && $instance->isa($class->name))<div class="calls"><div class="calls_out"> # spent 8µs making 12 calls to <a >UNIVERSAL::isa</a>, avg 692ns/call
# spent 6µs making 12 calls to <a href="Class-MOP-Package-pm-block.html#Class__MOP__Package__name">Class::MOP::Package::name</a>, avg 500ns/call
# spent 6µs making 12 calls to <a href="Scalar-Util-pm-block.html#Scalar__Util__blessed">Scalar::Util::blessed</a>, avg 475ns/call</div></div></td></tr>
<tr><td class="h"><a name="405"></a>405</td><td></td><td></td><td></td><td></td><td class="s"> || confess "You must pass an instance of the metaclass (" . (ref $class ? $class->name : $class) . "), not ($instance)";</td></tr>
<tr><td class="h"><a name="406"></a>406</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="407"></a>407</td><td></td><td></td><td></td><td></td><td class="s"> # NOTE:</td></tr>
<tr><td class="h"><a name="408"></a>408</td><td></td><td></td><td></td><td></td><td class="s"> # we need to protect the integrity of the</td></tr>
<tr><td class="h"><a name="409"></a>409</td><td></td><td></td><td></td><td></td><td class="s"> # Class::MOP::Class singletons here, they</td></tr>
<tr><td class="h"><a name="410"></a>410</td><td></td><td></td><td></td><td></td><td class="s"> # should not be cloned.</td></tr>
<tr><td class="h"><a name="411"></a>411</td><td></td><td></td><td></td><td></td><td class="s"> return $instance if $instance->isa('Class::MOP::Class');<div class="calls"><div class="calls_out"> # spent 11µs making 12 calls to <a >UNIVERSAL::isa</a>, avg 942ns/call</div></div></td></tr>
<tr><td class="h"><a name="412"></a>412</td><td></td><td></td><td></td><td></td><td class="s"> $class->_clone_instance($instance, @_);<div class="calls"><div class="calls_out"> # spent 1.24ms making 12 calls to <a href="Class-MOP-Class-pm-block.html#415">Class::MOP::Class::_clone_instance</a>, avg 103µs/call</div></div></td></tr>
<tr><td class="h"><a name="413"></a>413</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="414"></a>414</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="415"></a>415</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 1.24ms (328µs+909µs) within Class::MOP::Class::_clone_instance which was called 12 times, avg 103µs/call:
# 12 times (328µs+909µs) by Class::MOP::Class::clone_object at <a href="Class-MOP-Class-pm-block.html#412">line 412</a>, avg 103µs/call</div></div>sub _clone_instance {</td></tr>
<tr><td class="h"><a name="416"></a>416</td><td class="c3">72</td><td class="c3"><span title="Avg 2µs">122µs</span></td><td></td><td></td><td class="s"> my ($class, $instance, %params) = @_;</td></tr>
<tr><td class="h"><a name="417"></a>417</td><td></td><td></td><td></td><td></td><td class="s"> (blessed($instance))<div class="calls"><div class="calls_out"> # spent 5µs making 12 calls to <a href="Scalar-Util-pm-block.html#Scalar__Util__blessed">Scalar::Util::blessed</a>, avg 425ns/call</div></div></td></tr>
<tr><td class="h"><a name="418"></a>418</td><td></td><td></td><td></td><td></td><td class="s"> || confess "You can only clone instances, ($instance) is not a blessed instance";</td></tr>
<tr><td class="h"><a name="419"></a>419</td><td></td><td></td><td></td><td></td><td class="s"> my $meta_instance = $class->get_meta_instance();<div class="calls"><div class="calls_out"> # spent 115µs making 6 calls to <a href="Class-MOP-Class-pm-block.html#382">Class::MOP::Class::get_meta_instance</a>, avg 19µs/call
# spent 52µs making 6 calls to <a >Class::MOP::Class::Immutable::Class::MOP::Class::get_meta_instance</a>, avg 9µs/call</div></div></td></tr>
<tr><td class="h"><a name="420"></a>420</td><td></td><td></td><td></td><td></td><td class="s"> my $clone = $meta_instance->clone_instance($instance);<div class="calls"><div class="calls_out"> # spent 116µs making 12 calls to <a href="Class-MOP-Instance-pm-block.html#80">Class::MOP::Instance::clone_instance</a>, avg 10µs/call</div></div></td></tr>
<tr><td class="h"><a name="421"></a>421</td><td></td><td></td><td></td><td></td><td class="s"> foreach my $attr ($class->get_all_attributes()) {<div class="calls"><div class="calls_out"> # spent 188µs making 6 calls to <a href="Class-MOP-Class-pm-block.html#549">Class::MOP::Class::get_all_attributes</a>, avg 31µs/call
# spent 92µs making 6 calls to <a >Class::MOP::Class::Immutable::Class::MOP::Class::get_all_attributes</a>, avg 15µs/call</div></div></td></tr>
<tr><td class="h"><a name="422"></a>422</td><td class="c3">60</td><td class="c3"><span title="Avg 2µs">105µs</span></td><td class="c0">72</td><td class="c3">342µs</td><td class="s"> if ( defined( my $init_arg = $attr->init_arg ) ) {<div class="calls"><div class="calls_out"> # spent 271µs making 12 calls to <a href="Class-MOP-Attribute-pm-block.html#258">Class::MOP::Attribute::set_value</a>, avg 23µs/call
# spent 71µs making 60 calls to <a href="Class-MOP-Mixin-AttributeCore-pm-block.html#31">Class::MOP::Mixin::AttributeCore::init_arg</a>, avg 1µs/call</div></div></td></tr>
<tr><td class="h"><a name="423"></a>423</td><td></td><td></td><td></td><td></td><td class="s"> if (exists $params{$init_arg}) {</td></tr>
<tr><td class="h"><a name="424"></a>424</td><td></td><td></td><td></td><td></td><td class="s"> $attr->set_value($clone, $params{$init_arg});</td></tr>
<tr><td class="h"><a name="425"></a>425</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="426"></a>426</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="427"></a>427</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="428"></a>428</td><td></td><td></td><td></td><td></td><td class="s"> return $clone;</td></tr>
<tr><td class="h"><a name="429"></a>429</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="430"></a>430</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="431"></a>431</td><td></td><td></td><td></td><td></td><td class="s">sub rebless_instance {</td></tr>
<tr><td class="h"><a name="432"></a>432</td><td></td><td></td><td></td><td></td><td class="s"> my ($self, $instance, %params) = @_;</td></tr>
<tr><td class="h"><a name="433"></a>433</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="434"></a>434</td><td></td><td></td><td></td><td></td><td class="s"> my $old_metaclass = Class::MOP::class_of($instance);</td></tr>
<tr><td class="h"><a name="435"></a>435</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="436"></a>436</td><td></td><td></td><td></td><td></td><td class="s"> my $old_class = $old_metaclass ? $old_metaclass->name : blessed($instance);</td></tr>
<tr><td class="h"><a name="437"></a>437</td><td></td><td></td><td></td><td></td><td class="s"> $self->name->isa($old_class)</td></tr>
<tr><td class="h"><a name="438"></a>438</td><td></td><td></td><td></td><td></td><td class="s"> || confess "You may rebless only into a subclass of ($old_class), of which (". $self->name .") isn't.";</td></tr>
<tr><td class="h"><a name="439"></a>439</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="440"></a>440</td><td></td><td></td><td></td><td></td><td class="s"> $old_metaclass->rebless_instance_away($instance, $self, %params)</td></tr>
<tr><td class="h"><a name="441"></a>441</td><td></td><td></td><td></td><td></td><td class="s"> if $old_metaclass;</td></tr>
<tr><td class="h"><a name="442"></a>442</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="443"></a>443</td><td></td><td></td><td></td><td></td><td class="s"> my $meta_instance = $self->get_meta_instance();</td></tr>
<tr><td class="h"><a name="444"></a>444</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="445"></a>445</td><td></td><td></td><td></td><td></td><td class="s"> # rebless!</td></tr>
<tr><td class="h"><a name="446"></a>446</td><td></td><td></td><td></td><td></td><td class="s"> # we use $_[1] here because of t/306_rebless_overload.t regressions on 5.8.8</td></tr>
<tr><td class="h"><a name="447"></a>447</td><td></td><td></td><td></td><td></td><td class="s"> $meta_instance->rebless_instance_structure($_[1], $self);</td></tr>
<tr><td class="h"><a name="448"></a>448</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="449"></a>449</td><td></td><td></td><td></td><td></td><td class="s"> foreach my $attr ( $self->get_all_attributes ) {</td></tr>
<tr><td class="h"><a name="450"></a>450</td><td></td><td></td><td></td><td></td><td class="s"> if ( $attr->has_value($instance) ) {</td></tr>
<tr><td class="h"><a name="451"></a>451</td><td></td><td></td><td></td><td></td><td class="s"> if ( defined( my $init_arg = $attr->init_arg ) ) {</td></tr>
<tr><td class="h"><a name="452"></a>452</td><td></td><td></td><td></td><td></td><td class="s"> $params{$init_arg} = $attr->get_value($instance)</td></tr>
<tr><td class="h"><a name="453"></a>453</td><td></td><td></td><td></td><td></td><td class="s"> unless exists $params{$init_arg};</td></tr>
<tr><td class="h"><a name="454"></a>454</td><td></td><td></td><td></td><td></td><td class="s"> } </td></tr>
<tr><td class="h"><a name="455"></a>455</td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr>
<tr><td class="h"><a name="456"></a>456</td><td></td><td></td><td></td><td></td><td class="s"> $attr->set_value($instance, $attr->get_value($instance));</td></tr>
<tr><td class="h"><a name="457"></a>457</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="458"></a>458</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="459"></a>459</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="460"></a>460</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="461"></a>461</td><td></td><td></td><td></td><td></td><td class="s"> foreach my $attr ($self->get_all_attributes) {</td></tr>
<tr><td class="h"><a name="462"></a>462</td><td></td><td></td><td></td><td></td><td class="s"> $attr->initialize_instance_slot($meta_instance, $instance, \%params);</td></tr>
<tr><td class="h"><a name="463"></a>463</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="464"></a>464</td><td></td><td></td><td></td><td></td><td class="s"> </td></tr>
<tr><td class="h"><a name="465"></a>465</td><td></td><td></td><td></td><td></td><td class="s"> $instance;</td></tr>
<tr><td class="h"><a name="466"></a>466</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="467"></a>467</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="468"></a>468</td><td></td><td></td><td></td><td></td><td class="s">sub rebless_instance_back {</td></tr>
<tr><td class="h"><a name="469"></a>469</td><td></td><td></td><td></td><td></td><td class="s"> my ( $self, $instance ) = @_;</td></tr>
<tr><td class="h"><a name="470"></a>470</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="471"></a>471</td><td></td><td></td><td></td><td></td><td class="s"> my $old_metaclass = Class::MOP::class_of($instance);</td></tr>
<tr><td class="h"><a name="472"></a>472</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="473"></a>473</td><td></td><td></td><td></td><td></td><td class="s"> my $old_class</td></tr>
<tr><td class="h"><a name="474"></a>474</td><td></td><td></td><td></td><td></td><td class="s"> = $old_metaclass ? $old_metaclass->name : blessed($instance);</td></tr>
<tr><td class="h"><a name="475"></a>475</td><td></td><td></td><td></td><td></td><td class="s"> $old_class->isa( $self->name )</td></tr>
<tr><td class="h"><a name="476"></a>476</td><td></td><td></td><td></td><td></td><td class="s"> || confess</td></tr>
<tr><td class="h"><a name="477"></a>477</td><td></td><td></td><td></td><td></td><td class="s"> "You may rebless only into a superclass of ($old_class), of which ("</td></tr>
<tr><td class="h"><a name="478"></a>478</td><td></td><td></td><td></td><td></td><td class="s"> . $self->name</td></tr>
<tr><td class="h"><a name="479"></a>479</td><td></td><td></td><td></td><td></td><td class="s"> . ") isn't.";</td></tr>
<tr><td class="h"><a name="480"></a>480</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="481"></a>481</td><td></td><td></td><td></td><td></td><td class="s"> $old_metaclass->rebless_instance_away( $instance, $self )</td></tr>
<tr><td class="h"><a name="482"></a>482</td><td></td><td></td><td></td><td></td><td class="s"> if $old_metaclass;</td></tr>
<tr><td class="h"><a name="483"></a>483</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="484"></a>484</td><td></td><td></td><td></td><td></td><td class="s"> my $meta_instance = $self->get_meta_instance;</td></tr>
<tr><td class="h"><a name="485"></a>485</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="486"></a>486</td><td></td><td></td><td></td><td></td><td class="s"> # we use $_[1] here because of t/306_rebless_overload.t regressions on 5.8.8</td></tr>
<tr><td class="h"><a name="487"></a>487</td><td></td><td></td><td></td><td></td><td class="s"> $meta_instance->rebless_instance_structure( $_[1], $self );</td></tr>
<tr><td class="h"><a name="488"></a>488</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="489"></a>489</td><td></td><td></td><td></td><td></td><td class="s"> for my $attr ( $old_metaclass->get_all_attributes ) {</td></tr>
<tr><td class="h"><a name="490"></a>490</td><td></td><td></td><td></td><td></td><td class="s"> next if $self->has_attribute( $attr->name );</td></tr>
<tr><td class="h"><a name="491"></a>491</td><td></td><td></td><td></td><td></td><td class="s"> $meta_instance->deinitialize_slot( $instance, $_ ) for $attr->slots;</td></tr>
<tr><td class="h"><a name="492"></a>492</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="493"></a>493</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="494"></a>494</td><td></td><td></td><td></td><td></td><td class="s"> return $instance;</td></tr>
<tr><td class="h"><a name="495"></a>495</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="496"></a>496</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="497"></a>497</td><td></td><td></td><td></td><td></td><td class="s">sub rebless_instance_away {</td></tr>
<tr><td class="h"><a name="498"></a>498</td><td></td><td></td><td></td><td></td><td class="s"> # this intentionally does nothing, it is just a hook</td></tr>
<tr><td class="h"><a name="499"></a>499</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="500"></a>500</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="501"></a>501</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 1.36ms (374µs+982µs) within Class::MOP::Class::_attach_attribute which was called 119 times, avg 11µs/call:
# 119 times (374µs+982µs) by Class::MOP::Mixin::HasAttributes::add_attribute at <a href="Class-MOP-Mixin-HasAttributes-pm-block.html#28">line 28 of Class/MOP/Mixin/HasAttributes.pm</a>, avg 11µs/call</div></div>sub _attach_attribute {</td></tr>
<tr><td class="h"><a name="502"></a>502</td><td class="c0">238</td><td class="c1"><span title="Avg 1µs">326µs</span></td><td></td><td></td><td class="s"> my ($self, $attribute) = @_;</td></tr>
<tr><td class="h"><a name="503"></a>503</td><td></td><td></td><td></td><td></td><td class="s"> $attribute->attach_to_class($self);<div class="calls"><div class="calls_out"> # spent 982µs making 119 calls to <a href="Class-MOP-Attribute-pm-block.html#228">Class::MOP::Attribute::attach_to_class</a>, avg 8µs/call</div></div></td></tr>
<tr><td class="h"><a name="504"></a>504</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="505"></a>505</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="506"></a>506</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 28.9ms (1.22+27.7) within Class::MOP::Class::_post_add_attribute which was called 119 times, avg 243µs/call:
# 119 times (1.22ms+27.7ms) by Class::MOP::Mixin::HasAttributes::add_attribute at <a href="Class-MOP-Mixin-HasAttributes-pm-block.html#45">line 45 of Class/MOP/Mixin/HasAttributes.pm</a>, avg 243µs/call</div></div>sub _post_add_attribute {</td></tr>
<tr><td class="h"><a name="507"></a>507</td><td class="c0">357</td><td class="c0"><span title="Avg 3µs">981µs</span></td><td></td><td></td><td class="s"> my ( $self, $attribute ) = @_;</td></tr>
<tr><td class="h"><a name="508"></a>508</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="509"></a>509</td><td></td><td></td><td></td><td></td><td class="s"> $self->invalidate_meta_instances;<div class="calls"><div class="calls_out"> # spent 780µs making 119 calls to <a href="Class-MOP-Class-pm-block.html#838">Class::MOP::Class::invalidate_meta_instances</a>, avg 7µs/call</div></div></td></tr>
<tr><td class="h"><a name="510"></a>510</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="511"></a>511</td><td></td><td></td><td></td><td></td><td class="s"> # invalidate package flag here</td></tr>
<tr><td class="h"><a name="512"></a>512</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 25.2ms (707µs+24.5) within Class::MOP::Class::__ANON__[/usr/local/lib/perl5/site_perl/5.10.1/darwin-2level/Class/MOP/Class.pm:515] which was called 119 times, avg 212µs/call:
# 119 times (707µs+24.5ms) by Try::Tiny::try at <a href="Try-Tiny-pm-block.html#76">line 76 of Try/Tiny.pm</a>, avg 212µs/call</div></div> try {</td></tr>
<tr><td class="h"><a name="513"></a>513</td><td class="c0">238</td><td class="c0"><span title="Avg 3µs">644µs</span></td><td></td><td></td><td class="s"> local $SIG{__DIE__};</td></tr>
<tr><td class="h"><a name="514"></a>514</td><td></td><td></td><td></td><td></td><td class="s"> $attribute->install_accessors;<div class="calls"><div class="calls_out"> # spent 20.1ms making 114 calls to <a href="Class-MOP-Attribute-pm-block.html#349">Class::MOP::Attribute::install_accessors</a>, avg 176µs/call
# spent 4.44ms making 5 calls to <a href="Moose-Meta-Attribute-pm-block.html#542">Moose::Meta::Attribute::install_accessors</a>, avg 888µs/call</div></div></td></tr>
<tr><td class="h"><a name="515"></a>515</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="516"></a>516</td><td></td><td></td><td></td><td></td><td class="s"> catch {</td></tr>
<tr><td class="h"><a name="517"></a>517</td><td></td><td></td><td></td><td></td><td class="s"> $self->remove_attribute( $attribute->name );</td></tr>
<tr><td class="h"><a name="518"></a>518</td><td></td><td></td><td></td><td></td><td class="s"> die $_;</td></tr>
<tr><td class="h"><a name="519"></a>519</td><td></td><td></td><td></td><td></td><td class="s"> };<div class="calls"><div class="calls_out"> # spent 26.5ms making 119 calls to <a href="Try-Tiny-pm-block.html#25">Try::Tiny::try</a>, avg 223µs/call
# spent 367µs making 119 calls to <a href="Try-Tiny-pm-block.html#112">Try::Tiny::catch</a>, avg 3µs/call</div></div></td></tr>
<tr><td class="h"><a name="520"></a>520</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="521"></a>521</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="522"></a>522</td><td></td><td></td><td></td><td></td><td class="s">sub remove_attribute {</td></tr>
<tr><td class="h"><a name="523"></a>523</td><td></td><td></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="524"></a>524</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="525"></a>525</td><td></td><td></td><td></td><td></td><td class="s"> my $removed_attribute = $self->SUPER::remove_attribute(@_)</td></tr>
<tr><td class="h"><a name="526"></a>526</td><td></td><td></td><td></td><td></td><td class="s"> or return;</td></tr>
<tr><td class="h"><a name="527"></a>527</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="528"></a>528</td><td></td><td></td><td></td><td></td><td class="s"> $self->invalidate_meta_instances;</td></tr>
<tr><td class="h"><a name="529"></a>529</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="530"></a>530</td><td></td><td></td><td></td><td></td><td class="s"> $removed_attribute->remove_accessors;</td></tr>
<tr><td class="h"><a name="531"></a>531</td><td></td><td></td><td></td><td></td><td class="s"> $removed_attribute->detach_from_class;</td></tr>
<tr><td class="h"><a name="532"></a>532</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="533"></a>533</td><td></td><td></td><td></td><td></td><td class="s"> return$removed_attribute;</td></tr>
<tr><td class="h"><a name="534"></a>534</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="535"></a>535</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="536"></a>536</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 1.67ms (522µs+1.15) within Class::MOP::Class::find_attribute_by_name which was called 51 times, avg 33µs/call:
# 51 times (522µs+1.15ms) by Class::MOP::Class::_immutable_metaclass at <a href="Class-MOP-Class-pm-block.html#935">line 935</a>, avg 33µs/call</div></div>sub find_attribute_by_name {</td></tr>
<tr><td class="h"><a name="537"></a>537</td><td class="c2">102</td><td class="c3"><span title="Avg 955ns">97µs</span></td><td></td><td></td><td class="s"> my ( $self, $attr_name ) = @_;</td></tr>
<tr><td class="h"><a name="538"></a>538</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="539"></a>539</td><td></td><td></td><td></td><td></td><td class="s"> foreach my $class ( $self->linearized_isa ) {<div class="calls"><div class="calls_out"> # spent 419µs making 47 calls to <a >Class::MOP::Class::Immutable::Class::MOP::Class::linearized_isa</a>, avg 9µs/call
# spent 23µs making 4 calls to <a href="Class-MOP-Class-pm-block.html#608">Class::MOP::Class::linearized_isa</a>, avg 6µs/call</div></div></td></tr>
<tr><td class="h"><a name="540"></a>540</td><td></td><td></td><td></td><td></td><td class="s"> # fetch the meta-class ...</td></tr>
<tr><td class="h"><a name="541"></a>541</td><td class="c2">102</td><td class="c1"><span title="Avg 3µs">264µs</span></td><td class="c0">51</td><td class="c3">232µs</td><td class="s"> my $meta = $self->initialize($class);<div class="calls"><div class="calls_out"> # spent 232µs making 51 calls to <a href="Class-MOP-Class-pm-block.html#26">Class::MOP::Class::initialize</a>, avg 5µs/call</div></div></td></tr>
<tr><td class="h"><a name="542"></a>542</td><td></td><td></td><td></td><td></td><td class="s"> return $meta->get_attribute($attr_name)<div class="calls"><div class="calls_out"> # spent 265µs making 51 calls to <a href="Class-MOP-Mixin-HasAttributes-pm-block.html#51">Class::MOP::Mixin::HasAttributes::has_attribute</a>, avg 5µs/call
# spent 213µs making 51 calls to <a href="Class-MOP-Mixin-HasAttributes-pm-block.html#60">Class::MOP::Mixin::HasAttributes::get_attribute</a>, avg 4µs/call</div></div></td></tr>
<tr><td class="h"><a name="543"></a>543</td><td></td><td></td><td></td><td></td><td class="s"> if $meta->has_attribute($attr_name);</td></tr>
<tr><td class="h"><a name="544"></a>544</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="545"></a>545</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="546"></a>546</td><td></td><td></td><td></td><td></td><td class="s"> return;</td></tr>
<tr><td class="h"><a name="547"></a>547</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="548"></a>548</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="549"></a>549</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 4.82ms (2.26+2.57) within Class::MOP::Class::get_all_attributes which was called 85 times, avg 57µs/call:
# 38 times (970µs+1.16ms) by Class::MOP::Class::_create_meta_instance at <a href="Class-MOP-Class-pm-block.html#390">line 390</a>, avg 56µs/call
# 32 times (811µs+896µs) by Class::MOP::Method::Constructor::_attributes at <a href="Class-MOP-Method-Constructor-pm-block.html#82">line 82 of Class/MOP/Method/Constructor.pm</a>, avg 53µs/call
# 6 times (91µs+96µs) by Class::MOP::Class::_clone_instance at <a href="Class-MOP-Class-pm-block.html#421">line 421</a>, avg 31µs/call
# 5 times (171µs+176µs) by Class::MOP::Class::_construct_instance at <a href="Class-MOP-Class-pm-block.html#363">line 363</a>, avg 69µs/call
# 3 times (162µs+195µs) by Class::MOP::Class:::around at <a href="Class-MOP-Class-Immutable-Trait-pm-block.html#68">line 68 of Class/MOP/Class/Immutable/Trait.pm</a>, avg 119µs/call
# once (51µs+42µs) by Moose::Meta::Attribute::new at <a href="Moose-Meta-Attribute-pm-block.html#59">line 59 of Moose/Meta/Attribute.pm</a></div></div>sub get_all_attributes {</td></tr>
<tr><td class="h"><a name="550"></a>550</td><td class="c0">255</td><td class="c0"><span title="Avg 3µs">738µs</span></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="551"></a>551</td><td class="c0">606</td><td class="c0"><span title="Avg 1µs">857µs</span></td><td class="c0">691</td><td class="c0">2.46ms</td><td class="s"> my %attrs = map { %{ $self->initialize($_)->_attribute_map } }<div class="calls"><div class="calls_out"> # spent 1.56ms making 293 calls to <a href="Class-MOP-Class-pm-block.html#26">Class::MOP::Class::initialize</a>, avg 5µs/call, recursion: max depth 1, time 112µs
# spent 554µs making 82 calls to <a href="Class-MOP-Class-pm-block.html#608">Class::MOP::Class::linearized_isa</a>, avg 7µs/call
# spent 330µs making 303 calls to <a href="Class-MOP-Mixin-HasAttributes-pm-block.html#15">Class::MOP::Mixin::HasAttributes::_attribute_map</a>, avg 1µs/call
# spent 75µs making 3 calls to <a >Class::MOP::Class::Immutable::Class::MOP::Class::linearized_isa</a>, avg 25µs/call
# spent 49µs making 10 calls to <a href="Moose-Meta-Class-pm-block.html#59">Moose::Meta::Class::initialize</a>, avg 5µs/call</div></div></td></tr>
<tr><td class="h"><a name="552"></a>552</td><td></td><td></td><td></td><td></td><td class="s"> reverse $self->linearized_isa;</td></tr>
<tr><td class="h"><a name="553"></a>553</td><td></td><td></td><td></td><td></td><td class="s"> return values %attrs;</td></tr>
<tr><td class="h"><a name="554"></a>554</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="555"></a>555</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="556"></a>556</td><td></td><td></td><td></td><td></td><td class="s"># Inheritance</td></tr>
<tr><td class="h"><a name="557"></a>557</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="558"></a>558</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 467µs (179+288) within Class::MOP::Class::superclasses which was called 7 times, avg 67µs/call:
# 5 times (65µs+202µs) by Moose::Meta::Class::superclasses at <a href="Moose-Meta-Class-pm-block.html#289">line 289 of Moose/Meta/Class.pm</a>, avg 53µs/call
# 2 times (114µs+87µs) by Class::MOP::Class::create at <a href="Class-MOP-Class-pm-block.html#307">line 307</a>, avg 100µs/call</div></div>sub superclasses {</td></tr>
<tr><td class="h"><a name="559"></a>559</td><td class="c3">28</td><td class="c3"><span title="Avg 2µs">50µs</span></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="560"></a>560</td><td></td><td></td><td></td><td></td><td class="s"> my $var_spec = { sigil => '@', type => 'ARRAY', name => 'ISA' };</td></tr>
<tr><td class="h"><a name="561"></a>561</td><td class="c3">18</td><td class="c3"><span title="Avg 7µs">119µs</span></td><td></td><td></td><td class="s"> if (@_) {</td></tr>
<tr><td class="h"><a name="562"></a>562</td><td></td><td></td><td></td><td></td><td class="s"> my @supers = @_;</td></tr>
<tr><td class="h"><a name="563"></a>563</td><td></td><td></td><td></td><td></td><td class="s"> @{$self->get_package_symbol($var_spec)} = @supers;<div class="calls"><div class="calls_out"> # spent 50µs making 3 calls to <a href="Class-MOP-Package-pm-block.html#187">Class::MOP::Package::get_package_symbol</a>, avg 17µs/call</div></div></td></tr>
<tr><td class="h"><a name="564"></a>564</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="565"></a>565</td><td></td><td></td><td></td><td></td><td class="s"> # NOTE:</td></tr>
<tr><td class="h"><a name="566"></a>566</td><td></td><td></td><td></td><td></td><td class="s"> # on 5.8 and below, we need to call</td></tr>
<tr><td class="h"><a name="567"></a>567</td><td></td><td></td><td></td><td></td><td class="s"> # a method to get Perl to detect</td></tr>
<tr><td class="h"><a name="568"></a>568</td><td></td><td></td><td></td><td></td><td class="s"> # a cycle in the class hierarchy</td></tr>
<tr><td class="h"><a name="569"></a>569</td><td></td><td></td><td></td><td></td><td class="s"> my $class = $self->name;<div class="calls"><div class="calls_out"> # spent 2µs making 3 calls to <a href="Class-MOP-Package-pm-block.html#Class__MOP__Package__name">Class::MOP::Package::name</a>, avg 767ns/call</div></div></td></tr>
<tr><td class="h"><a name="570"></a>570</td><td></td><td></td><td></td><td></td><td class="s"> $class->isa($class);<div class="calls"><div class="calls_out"> # spent 4µs making 3 calls to <a >UNIVERSAL::isa</a>, avg 1µs/call</div></div></td></tr>
<tr><td class="h"><a name="571"></a>571</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="572"></a>572</td><td></td><td></td><td></td><td></td><td class="s"> # NOTE:</td></tr>
<tr><td class="h"><a name="573"></a>573</td><td></td><td></td><td></td><td></td><td class="s"> # we need to check the metaclass</td></tr>
<tr><td class="h"><a name="574"></a>574</td><td></td><td></td><td></td><td></td><td class="s"> # compatibility here so that we can</td></tr>
<tr><td class="h"><a name="575"></a>575</td><td></td><td></td><td></td><td></td><td class="s"> # be sure that the superclass is</td></tr>
<tr><td class="h"><a name="576"></a>576</td><td></td><td></td><td></td><td></td><td class="s"> # not potentially creating an issues</td></tr>
<tr><td class="h"><a name="577"></a>577</td><td></td><td></td><td></td><td></td><td class="s"> # we don't know about</td></tr>
<tr><td class="h"><a name="578"></a>578</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="579"></a>579</td><td></td><td></td><td></td><td></td><td class="s"> $self->_check_metaclass_compatibility();<div class="calls"><div class="calls_out"> # spent 134µs making 1 call to <a href="Moose-Meta-Class-pm-block.html#101">Moose::Meta::Class::_check_metaclass_compatibility</a>
# spent 11µs making 2 calls to <a href="Class-MOP-Class-pm-block.html#168">Class::MOP::Class::_check_metaclass_compatibility</a>, avg 5µs/call</div></div></td></tr>
<tr><td class="h"><a name="580"></a>580</td><td></td><td></td><td></td><td></td><td class="s"> $self->_superclasses_updated();<div class="calls"><div class="calls_out"> # spent 23µs making 3 calls to <a href="Class-MOP-Class-pm-block.html#585">Class::MOP::Class::_superclasses_updated</a>, avg 8µs/call</div></div></td></tr>
<tr><td class="h"><a name="581"></a>581</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="582"></a>582</td><td></td><td></td><td></td><td></td><td class="s"> @{$self->get_package_symbol($var_spec)};<div class="calls"><div class="calls_out"> # spent 78µs making 7 calls to <a href="Class-MOP-Package-pm-block.html#187">Class::MOP::Package::get_package_symbol</a>, avg 11µs/call</div></div></td></tr>
<tr><td class="h"><a name="583"></a>583</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="584"></a>584</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="585"></a>585</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 23µs (15+8) within Class::MOP::Class::_superclasses_updated which was called 3 times, avg 8µs/call:
# 3 times (15µs+8µs) by Class::MOP::Class::superclasses at <a href="Class-MOP-Class-pm-block.html#580">line 580</a>, avg 8µs/call</div></div>sub _superclasses_updated {</td></tr>
<tr><td class="h"><a name="586"></a>586</td><td class="c3">6</td><td class="c3"><span title="Avg 2µs">14µs</span></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="587"></a>587</td><td></td><td></td><td></td><td></td><td class="s"> $self->update_meta_instance_dependencies();<div class="calls"><div class="calls_out"> # spent 8µs making 3 calls to <a href="Class-MOP-Class-pm-block.html#785">Class::MOP::Class::update_meta_instance_dependencies</a>, avg 3µs/call</div></div></td></tr>
<tr><td class="h"><a name="588"></a>588</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="589"></a>589</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="590"></a>590</td><td></td><td></td><td></td><td></td><td class="s">sub subclasses {</td></tr>
<tr><td class="h"><a name="591"></a>591</td><td></td><td></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="592"></a>592</td><td></td><td></td><td></td><td></td><td class="s"> my $super_class = $self->name;</td></tr>
<tr><td class="h"><a name="593"></a>593</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="594"></a>594</td><td></td><td></td><td></td><td></td><td class="s"> return @{ $super_class->mro::get_isarev() };</td></tr>
<tr><td class="h"><a name="595"></a>595</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="596"></a>596</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="597"></a>597</td><td></td><td></td><td></td><td></td><td class="s">sub direct_subclasses {</td></tr>
<tr><td class="h"><a name="598"></a>598</td><td></td><td></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="599"></a>599</td><td></td><td></td><td></td><td></td><td class="s"> my $super_class = $self->name;</td></tr>
<tr><td class="h"><a name="600"></a>600</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="601"></a>601</td><td></td><td></td><td></td><td></td><td class="s"> return grep {</td></tr>
<tr><td class="h"><a name="602"></a>602</td><td></td><td></td><td></td><td></td><td class="s"> grep {</td></tr>
<tr><td class="h"><a name="603"></a>603</td><td></td><td></td><td></td><td></td><td class="s"> $_ eq $super_class</td></tr>
<tr><td class="h"><a name="604"></a>604</td><td></td><td></td><td></td><td></td><td class="s"> } Class::MOP::Class->initialize($_)->superclasses</td></tr>
<tr><td class="h"><a name="605"></a>605</td><td></td><td></td><td></td><td></td><td class="s"> } $self->subclasses;</td></tr>
<tr><td class="h"><a name="606"></a>606</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="607"></a>607</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="608"></a>608</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 1.45ms (979µs+473µs) within Class::MOP::Class::linearized_isa which was called 217 times, avg 7µs/call:
# 82 times (375µs+179µs) by Class::MOP::Class::get_all_attributes at <a href="Class-MOP-Class-pm-block.html#551">line 551</a>, avg 7µs/call
# 69 times (296µs+142µs) by Class::MOP::Class::find_next_method_by_name at <a href="Class-MOP-Class-pm-block.html#776">line 776</a>, avg 6µs/call
# 51 times (228µs+113µs) by Class::MOP::Class::find_method_by_name at <a href="Class-MOP-Class-pm-block.html#728">line 728</a>, avg 7µs/call
# 4 times (32µs+10µs) by Class::MOP::Class:::around at <a href="Class-MOP-Class-Immutable-Trait-pm-block.html#50">line 50 of Class/MOP/Class/Immutable/Trait.pm</a>, avg 10µs/call
# 4 times (16µs+7µs) by Class::MOP::Class::find_attribute_by_name at <a href="Class-MOP-Class-pm-block.html#539">line 539</a>, avg 6µs/call
# 3 times (15µs+14µs) by Class::MOP::Class::_check_metaclass_compatibility at <a href="Class-MOP-Class-pm-block.html#175">line 175</a>, avg 10µs/call
# 2 times (9µs+5µs) by Class::MOP::Class::get_all_methods at <a href="Class-MOP-Class-pm-block.html#739">line 739</a>, avg 7µs/call
# 2 times (8µs+3µs) by Class::MOP::Class::find_all_methods_by_name at <a href="Class-MOP-Class-pm-block.html#760">line 760</a>, avg 6µs/call</div></div>sub linearized_isa {</td></tr>
<tr><td class="h"><a name="609"></a>609</td><td class="c0">217</td><td class="c0"><span title="Avg 8µs">1.64ms</span></td><td class="c0">434</td><td class="c3">473µs</td><td class="s"> return @{ mro::get_linear_isa( (shift)->name ) };<div class="calls"><div class="calls_out"> # spent 366µs making 217 calls to <a href="mro-pm-block.html#mro__get_linear_isa">mro::get_linear_isa</a>, avg 2µs/call
# spent 108µs making 217 calls to <a href="Class-MOP-Package-pm-block.html#Class__MOP__Package__name">Class::MOP::Package::name</a>, avg 496ns/call</div></div></td></tr>
<tr><td class="h"><a name="610"></a>610</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="611"></a>611</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="612"></a>612</td><td></td><td></td><td></td><td></td><td class="s">sub class_precedence_list {</td></tr>
<tr><td class="h"><a name="613"></a>613</td><td></td><td></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="614"></a>614</td><td></td><td></td><td></td><td></td><td class="s"> my $name = $self->name;</td></tr>
<tr><td class="h"><a name="615"></a>615</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="616"></a>616</td><td></td><td></td><td></td><td></td><td class="s"> unless (Class::MOP::IS_RUNNING_ON_5_10()) { </td></tr>
<tr><td class="h"><a name="617"></a>617</td><td></td><td></td><td></td><td></td><td class="s"> # NOTE:</td></tr>
<tr><td class="h"><a name="618"></a>618</td><td></td><td></td><td></td><td></td><td class="s"> # We need to check for circular inheritance here</td></tr>
<tr><td class="h"><a name="619"></a>619</td><td></td><td></td><td></td><td></td><td class="s"> # if we are are not on 5.10, cause 5.8 detects it </td></tr>
<tr><td class="h"><a name="620"></a>620</td><td></td><td></td><td></td><td></td><td class="s"> # late. This will do nothing if all is well, and </td></tr>
<tr><td class="h"><a name="621"></a>621</td><td></td><td></td><td></td><td></td><td class="s"> # blow up otherwise. Yes, it's an ugly hack, better</td></tr>
<tr><td class="h"><a name="622"></a>622</td><td></td><td></td><td></td><td></td><td class="s"> # suggestions are welcome. </td></tr>
<tr><td class="h"><a name="623"></a>623</td><td></td><td></td><td></td><td></td><td class="s"> # - SL</td></tr>
<tr><td class="h"><a name="624"></a>624</td><td></td><td></td><td></td><td></td><td class="s"> ($name || return)->isa('This is a test for circular inheritance') </td></tr>
<tr><td class="h"><a name="625"></a>625</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="626"></a>626</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="627"></a>627</td><td></td><td></td><td></td><td></td><td class="s"> # if our mro is c3, we can </td></tr>
<tr><td class="h"><a name="628"></a>628</td><td></td><td></td><td></td><td></td><td class="s"> # just grab the linear_isa</td></tr>
<tr><td class="h"><a name="629"></a>629</td><td></td><td></td><td></td><td></td><td class="s"> if (mro::get_mro($name) eq 'c3') {</td></tr>
<tr><td class="h"><a name="630"></a>630</td><td></td><td></td><td></td><td></td><td class="s"> return @{ mro::get_linear_isa($name) }</td></tr>
<tr><td class="h"><a name="631"></a>631</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="632"></a>632</td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr>
<tr><td class="h"><a name="633"></a>633</td><td></td><td></td><td></td><td></td><td class="s"> # NOTE:</td></tr>
<tr><td class="h"><a name="634"></a>634</td><td></td><td></td><td></td><td></td><td class="s"> # we can't grab the linear_isa for dfs</td></tr>
<tr><td class="h"><a name="635"></a>635</td><td></td><td></td><td></td><td></td><td class="s"> # since it has all the duplicates </td></tr>
<tr><td class="h"><a name="636"></a>636</td><td></td><td></td><td></td><td></td><td class="s"> # already removed.</td></tr>
<tr><td class="h"><a name="637"></a>637</td><td></td><td></td><td></td><td></td><td class="s"> return (</td></tr>
<tr><td class="h"><a name="638"></a>638</td><td></td><td></td><td></td><td></td><td class="s"> $name,</td></tr>
<tr><td class="h"><a name="639"></a>639</td><td></td><td></td><td></td><td></td><td class="s"> map {</td></tr>
<tr><td class="h"><a name="640"></a>640</td><td></td><td></td><td></td><td></td><td class="s"> $self->initialize($_)->class_precedence_list()</td></tr>
<tr><td class="h"><a name="641"></a>641</td><td></td><td></td><td></td><td></td><td class="s"> } $self->superclasses()</td></tr>
<tr><td class="h"><a name="642"></a>642</td><td></td><td></td><td></td><td></td><td class="s"> );</td></tr>
<tr><td class="h"><a name="643"></a>643</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="644"></a>644</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="645"></a>645</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="646"></a>646</td><td></td><td></td><td></td><td></td><td class="s">## Methods</td></tr>
<tr><td class="h"><a name="647"></a>647</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="648"></a>648</td><td></td><td></td><td></td><td></td><td class="s">{</td></tr>
<tr><td class="h"><a name="649"></a>649</td><td class="c3">1</td><td class="c3"><span title="Avg 200ns">200ns</span></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 7.52ms (623µs+6.90) within Class::MOP::Class::__ANON__[/usr/local/lib/perl5/site_perl/5.10.1/darwin-2level/Class/MOP/Class.pm:678] which was called 36 times, avg 209µs/call:
# 36 times (623µs+6.90ms) by Class::MOP::Class::add_around_method_modifier at <a href="Class-MOP-Class-pm-block.html#704">line 704</a>, avg 209µs/call</div></div> my $fetch_and_prepare_method = sub {</td></tr>
<tr><td class="h"><a name="650"></a>650</td><td class="c0">216</td><td class="c1"><span title="Avg 1µs">265µs</span></td><td></td><td></td><td class="s"> my ($self, $method_name) = @_;</td></tr>
<tr><td class="h"><a name="651"></a>651</td><td></td><td></td><td></td><td></td><td class="s"> my $wrapped_metaclass = $self->wrapped_method_metaclass;<div class="calls"><div class="calls_out"> # spent 47µs making 36 calls to <a href="Class-MOP-Mixin-HasMethods-pm-block.html#17">Class::MOP::Mixin::HasMethods::wrapped_method_metaclass</a>, avg 1µs/call</div></div></td></tr>
<tr><td class="h"><a name="652"></a>652</td><td></td><td></td><td></td><td></td><td class="s"> # fetch it locally</td></tr>
<tr><td class="h"><a name="653"></a>653</td><td></td><td></td><td></td><td></td><td class="s"> my $method = $self->get_method($method_name);<div class="calls"><div class="calls_out"> # spent 704µs making 36 calls to <a href="Class-MOP-Mixin-HasMethods-pm-block.html#93">Class::MOP::Mixin::HasMethods::get_method</a>, avg 20µs/call</div></div></td></tr>
<tr><td class="h"><a name="654"></a>654</td><td></td><td></td><td></td><td></td><td class="s"> # if we dont have local ...</td></tr>
<tr><td class="h"><a name="655"></a>655</td><td class="c2">108</td><td class="c2"><span title="Avg 2µs">191µs</span></td><td></td><td></td><td class="s"> unless ($method) {</td></tr>
<tr><td class="h"><a name="656"></a>656</td><td></td><td></td><td></td><td></td><td class="s"> # try to find the next method</td></tr>
<tr><td class="h"><a name="657"></a>657</td><td></td><td></td><td></td><td></td><td class="s"> $method = $self->find_next_method_by_name($method_name);<div class="calls"><div class="calls_out"> # spent 2.77ms making 36 calls to <a href="Class-MOP-Class-pm-block.html#772">Class::MOP::Class::find_next_method_by_name</a>, avg 77µs/call</div></div></td></tr>
<tr><td class="h"><a name="658"></a>658</td><td></td><td></td><td></td><td></td><td class="s"> # die if it does not exist</td></tr>
<tr><td class="h"><a name="659"></a>659</td><td></td><td></td><td></td><td></td><td class="s"> (defined $method)</td></tr>
<tr><td class="h"><a name="660"></a>660</td><td></td><td></td><td></td><td></td><td class="s"> || confess "The method '$method_name' was not found in the inheritance hierarchy for " . $self->name;</td></tr>
<tr><td class="h"><a name="661"></a>661</td><td></td><td></td><td></td><td></td><td class="s"> # and now make sure to wrap it</td></tr>
<tr><td class="h"><a name="662"></a>662</td><td></td><td></td><td></td><td></td><td class="s"> # even if it is already wrapped</td></tr>
<tr><td class="h"><a name="663"></a>663</td><td></td><td></td><td></td><td></td><td class="s"> # because we need a new sub ref</td></tr>
<tr><td class="h"><a name="664"></a>664</td><td></td><td></td><td></td><td></td><td class="s"> $method = $wrapped_metaclass->wrap($method,<div class="calls"><div class="calls_out"> # spent 1.82ms making 36 calls to <a href="Class-MOP-Method-Wrapped-pm-block.html#71">Class::MOP::Method::Wrapped::wrap</a>, avg 50µs/call
# spent 20µs making 36 calls to <a href="Class-MOP-Package-pm-block.html#Class__MOP__Package__name">Class::MOP::Package::name</a>, avg 544ns/call</div></div></td></tr>
<tr><td class="h"><a name="665"></a>665</td><td></td><td></td><td></td><td></td><td class="s"> package_name => $self->name,</td></tr>
<tr><td class="h"><a name="666"></a>666</td><td></td><td></td><td></td><td></td><td class="s"> name => $method_name,</td></tr>
<tr><td class="h"><a name="667"></a>667</td><td></td><td></td><td></td><td></td><td class="s"> );</td></tr>
<tr><td class="h"><a name="668"></a>668</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="669"></a>669</td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr>
<tr><td class="h"><a name="670"></a>670</td><td></td><td></td><td></td><td></td><td class="s"> # now make sure we wrap it properly</td></tr>
<tr><td class="h"><a name="671"></a>671</td><td></td><td></td><td></td><td></td><td class="s"> $method = $wrapped_metaclass->wrap($method,</td></tr>
<tr><td class="h"><a name="672"></a>672</td><td></td><td></td><td></td><td></td><td class="s"> package_name => $self->name,</td></tr>
<tr><td class="h"><a name="673"></a>673</td><td></td><td></td><td></td><td></td><td class="s"> name => $method_name,</td></tr>
<tr><td class="h"><a name="674"></a>674</td><td></td><td></td><td></td><td></td><td class="s"> ) unless $method->isa($wrapped_metaclass);</td></tr>
<tr><td class="h"><a name="675"></a>675</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="676"></a>676</td><td></td><td></td><td></td><td></td><td class="s"> $self->add_method($method_name => $method);<div class="calls"><div class="calls_out"> # spent 1.54ms making 36 calls to <a href="Class-MOP-Mixin-HasMethods-pm-block.html#37">Class::MOP::Mixin::HasMethods::add_method</a>, avg 43µs/call</div></div></td></tr>
<tr><td class="h"><a name="677"></a>677</td><td></td><td></td><td></td><td></td><td class="s"> return $method;</td></tr>
<tr><td class="h"><a name="678"></a>678</td><td class="c3">1</td><td class="c3"><span title="Avg 2µs">2µs</span></td><td></td><td></td><td class="s"> };</td></tr>
<tr><td class="h"><a name="679"></a>679</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="680"></a>680</td><td></td><td></td><td></td><td></td><td class="s"> sub add_before_method_modifier {</td></tr>
<tr><td class="h"><a name="681"></a>681</td><td></td><td></td><td></td><td></td><td class="s"> my ($self, $method_name, $method_modifier) = @_;</td></tr>
<tr><td class="h"><a name="682"></a>682</td><td></td><td></td><td></td><td></td><td class="s"> (defined $method_name && length $method_name)</td></tr>
<tr><td class="h"><a name="683"></a>683</td><td></td><td></td><td></td><td></td><td class="s"> || confess "You must pass in a method name";</td></tr>
<tr><td class="h"><a name="684"></a>684</td><td></td><td></td><td></td><td></td><td class="s"> my $method = $fetch_and_prepare_method->($self, $method_name);</td></tr>
<tr><td class="h"><a name="685"></a>685</td><td></td><td></td><td></td><td></td><td class="s"> $method->add_before_modifier(</td></tr>
<tr><td class="h"><a name="686"></a>686</td><td></td><td></td><td></td><td></td><td class="s"> subname(':before' => $method_modifier)</td></tr>
<tr><td class="h"><a name="687"></a>687</td><td></td><td></td><td></td><td></td><td class="s"> );</td></tr>
<tr><td class="h"><a name="688"></a>688</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="689"></a>689</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="690"></a>690</td><td></td><td></td><td></td><td></td><td class="s"> sub add_after_method_modifier {</td></tr>
<tr><td class="h"><a name="691"></a>691</td><td></td><td></td><td></td><td></td><td class="s"> my ($self, $method_name, $method_modifier) = @_;</td></tr>
<tr><td class="h"><a name="692"></a>692</td><td></td><td></td><td></td><td></td><td class="s"> (defined $method_name && length $method_name)</td></tr>
<tr><td class="h"><a name="693"></a>693</td><td></td><td></td><td></td><td></td><td class="s"> || confess "You must pass in a method name";</td></tr>
<tr><td class="h"><a name="694"></a>694</td><td></td><td></td><td></td><td></td><td class="s"> my $method = $fetch_and_prepare_method->($self, $method_name);</td></tr>
<tr><td class="h"><a name="695"></a>695</td><td></td><td></td><td></td><td></td><td class="s"> $method->add_after_modifier(</td></tr>
<tr><td class="h"><a name="696"></a>696</td><td></td><td></td><td></td><td></td><td class="s"> subname(':after' => $method_modifier)</td></tr>
<tr><td class="h"><a name="697"></a>697</td><td></td><td></td><td></td><td></td><td class="s"> );</td></tr>
<tr><td class="h"><a name="698"></a>698</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="699"></a>699</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="700"></a>700</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 8.56ms (259µs+8.30) within Class::MOP::Class::add_around_method_modifier which was called 36 times, avg 238µs/call:
# 36 times (259µs+8.30ms) by Class::MOP::Class::_immutable_metaclass at <a href="Class-MOP-Class-pm-block.html#970">line 970</a>, avg 238µs/call</div></div> sub add_around_method_modifier {</td></tr>
<tr><td class="h"><a name="701"></a>701</td><td class="c1">144</td><td class="c1"><span title="Avg 2µs">289µs</span></td><td></td><td></td><td class="s"> my ($self, $method_name, $method_modifier) = @_;</td></tr>
<tr><td class="h"><a name="702"></a>702</td><td></td><td></td><td></td><td></td><td class="s"> (defined $method_name && length $method_name)</td></tr>
<tr><td class="h"><a name="703"></a>703</td><td></td><td></td><td></td><td></td><td class="s"> || confess "You must pass in a method name";</td></tr>
<tr><td class="h"><a name="704"></a>704</td><td></td><td></td><td></td><td></td><td class="s"> my $method = $fetch_and_prepare_method->($self, $method_name);<div class="calls"><div class="calls_out"> # spent 7.52ms making 36 calls to <a href="Class-MOP-Class-pm-block.html#649">Class::MOP::Class::__ANON__[Class/MOP/Class.pm:678]</a>, avg 209µs/call</div></div></td></tr>
<tr><td class="h"><a name="705"></a>705</td><td></td><td></td><td></td><td></td><td class="s"> $method->add_around_modifier(<div class="calls"><div class="calls_out"> # spent 697µs making 36 calls to <a href="Class-MOP-Method-Wrapped-pm-block.html#163">Class::MOP::Method::Wrapped::add_around_modifier</a>, avg 19µs/call
# spent 79µs making 36 calls to <a href="Sub-Name-pm-block.html#Sub__Name__subname">Sub::Name::subname</a>, avg 2µs/call</div></div></td></tr>
<tr><td class="h"><a name="706"></a>706</td><td></td><td></td><td></td><td></td><td class="s"> subname(':around' => $method_modifier)</td></tr>
<tr><td class="h"><a name="707"></a>707</td><td></td><td></td><td></td><td></td><td class="s"> );</td></tr>
<tr><td class="h"><a name="708"></a>708</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="709"></a>709</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="710"></a>710</td><td></td><td></td><td></td><td></td><td class="s"> # NOTE:</td></tr>
<tr><td class="h"><a name="711"></a>711</td><td></td><td></td><td></td><td></td><td class="s"> # the methods above used to be named like this:</td></tr>
<tr><td class="h"><a name="712"></a>712</td><td></td><td></td><td></td><td></td><td class="s"> # ${pkg}::${method}:(before|after|around)</td></tr>
<tr><td class="h"><a name="713"></a>713</td><td></td><td></td><td></td><td></td><td class="s"> # but this proved problematic when using one modifier</td></tr>
<tr><td class="h"><a name="714"></a>714</td><td></td><td></td><td></td><td></td><td class="s"> # to wrap multiple methods (something which is likely</td></tr>
<tr><td class="h"><a name="715"></a>715</td><td></td><td></td><td></td><td></td><td class="s"> # to happen pretty regularly IMO). So instead of naming</td></tr>
<tr><td class="h"><a name="716"></a>716</td><td></td><td></td><td></td><td></td><td class="s"> # it like this, I have chosen to just name them purely</td></tr>
<tr><td class="h"><a name="717"></a>717</td><td></td><td></td><td></td><td></td><td class="s"> # with their modifier names, like so:</td></tr>
<tr><td class="h"><a name="718"></a>718</td><td></td><td></td><td></td><td></td><td class="s"> # :(before|after|around)</td></tr>
<tr><td class="h"><a name="719"></a>719</td><td></td><td></td><td></td><td></td><td class="s"> # The fact is that in a stack trace, it will be fairly</td></tr>
<tr><td class="h"><a name="720"></a>720</td><td></td><td></td><td></td><td></td><td class="s"> # evident from the context what method they are attached</td></tr>
<tr><td class="h"><a name="721"></a>721</td><td></td><td></td><td></td><td></td><td class="s"> # to, and so don't need the fully qualified name.</td></tr>
<tr><td class="h"><a name="722"></a>722</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="723"></a>723</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="724"></a>724</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 7.64ms (958µs+6.69) within Class::MOP::Class::find_method_by_name which was called 51 times, avg 150µs/call:
# 42 times (844µs+6.00ms) by Class::MOP::Class::_immutable_metaclass at <a href="Class-MOP-Class-pm-block.html#970">line 970</a>, avg 163µs/call
# 7 times (83µs+360µs) by Moose::BEGIN@37 at <a href="Moose-Meta-Attribute-Native-pm-block.html#14">line 14 of Moose/Meta/Attribute/Native.pm</a>, avg 63µs/call
# once (18µs+221µs) by Moose::Meta::Method::Constructor::_generate_BUILDARGS at <a href="Moose-Meta-Method-Constructor-pm-block.html#135">line 135 of Moose/Meta/Method/Constructor.pm</a>
# once (13µs+105µs) by Moose::Meta::Method::Destructor::is_needed at <a href="Moose-Meta-Method-Destructor-pm-block.html#62">line 62 of Moose/Meta/Method/Destructor.pm</a></div></div>sub find_method_by_name {</td></tr>
<tr><td class="h"><a name="725"></a>725</td><td class="c1">166</td><td class="c3"><span title="Avg 848ns">141µs</span></td><td></td><td></td><td class="s"> my ($self, $method_name) = @_;</td></tr>
<tr><td class="h"><a name="726"></a>726</td><td></td><td></td><td></td><td></td><td class="s"> (defined $method_name && length $method_name)</td></tr>
<tr><td class="h"><a name="727"></a>727</td><td></td><td></td><td></td><td></td><td class="s"> || confess "You must define a method name to find";</td></tr>
<tr><td class="h"><a name="728"></a>728</td><td></td><td></td><td></td><td></td><td class="s"> foreach my $class ($self->linearized_isa) {<div class="calls"><div class="calls_out"> # spent 341µs making 51 calls to <a href="Class-MOP-Class-pm-block.html#608">Class::MOP::Class::linearized_isa</a>, avg 7µs/call</div></div></td></tr>
<tr><td class="h"><a name="729"></a>729</td><td class="c0">358</td><td class="c0"><span title="Avg 1µs">461µs</span></td><td class="c0">358</td><td class="c0">6.35ms</td><td class="s"> my $method = $self->initialize($class)->get_method($method_name);<div class="calls"><div class="calls_out"> # spent 5.45ms making 179 calls to <a href="Class-MOP-Mixin-HasMethods-pm-block.html#93">Class::MOP::Mixin::HasMethods::get_method</a>, avg 30µs/call
# spent 876µs making 175 calls to <a href="Class-MOP-Class-pm-block.html#26">Class::MOP::Class::initialize</a>, avg 5µs/call
# spent 17µs making 4 calls to <a href="Moose-Meta-Class-pm-block.html#59">Moose::Meta::Class::initialize</a>, avg 4µs/call</div></div></td></tr>
<tr><td class="h"><a name="730"></a>730</td><td></td><td></td><td></td><td></td><td class="s"> return $method if defined $method;</td></tr>
<tr><td class="h"><a name="731"></a>731</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="732"></a>732</td><td></td><td></td><td></td><td></td><td class="s"> return;</td></tr>
<tr><td class="h"><a name="733"></a>733</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="734"></a>734</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="735"></a>735</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 3.74ms (155µs+3.58) within Class::MOP::Class::get_all_methods which was called 2 times, avg 1.87ms/call:
# 2 times (155µs+3.58ms) by Class::MOP::Class::_immutable_metaclass at <a href="Class-MOP-Class-pm-block.html#967">line 967</a>, avg 1.87ms/call</div></div>sub get_all_methods {</td></tr>
<tr><td class="h"><a name="736"></a>736</td><td class="c3">8</td><td class="c3"><span title="Avg 2µs">17µs</span></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="737"></a>737</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="738"></a>738</td><td></td><td></td><td></td><td></td><td class="s"> my %methods;</td></tr>
<tr><td class="h"><a name="739"></a>739</td><td></td><td></td><td></td><td></td><td class="s"> for my $class ( reverse $self->linearized_isa ) {<div class="calls"><div class="calls_out"> # spent 14µs making 2 calls to <a href="Class-MOP-Class-pm-block.html#608">Class::MOP::Class::linearized_isa</a>, avg 7µs/call</div></div></td></tr>
<tr><td class="h"><a name="740"></a>740</td><td class="c3">9</td><td class="c3"><span title="Avg 4µs">39µs</span></td><td class="c1">3</td><td class="c3">16µs</td><td class="s"> my $meta = $self->initialize($class);<div class="calls"><div class="calls_out"> # spent 16µs making 3 calls to <a href="Class-MOP-Class-pm-block.html#26">Class::MOP::Class::initialize</a>, avg 5µs/call</div></div></td></tr>
<tr><td class="h"><a name="741"></a>741</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="742"></a>742</td><td></td><td></td><td></td><td></td><td class="s"> $methods{$_} = $meta->get_method($_)</td></tr>
<tr><td class="h"><a name="743"></a>743</td><td></td><td></td><td></td><td></td><td class="s"> for $meta->get_method_list;<div class="calls"><div class="calls_out"> # spent 2.71ms making 3 calls to <a href="Class-MOP-Mixin-HasMethods-pm-block.html#149">Class::MOP::Mixin::HasMethods::get_method_list</a>, avg 904µs/call
# spent 843µs making 42 calls to <a href="Class-MOP-Mixin-HasMethods-pm-block.html#93">Class::MOP::Mixin::HasMethods::get_method</a>, avg 20µs/call</div></div></td></tr>
<tr><td class="h"><a name="744"></a>744</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="745"></a>745</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="746"></a>746</td><td class="c3">1</td><td class="c3"><span title="Avg 53µs">53µs</span></td><td></td><td></td><td class="s"> return values %methods;</td></tr>
<tr><td class="h"><a name="747"></a>747</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="748"></a>748</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="749"></a>749</td><td></td><td></td><td></td><td></td><td class="s">sub get_all_method_names {</td></tr>
<tr><td class="h"><a name="750"></a>750</td><td></td><td></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="751"></a>751</td><td></td><td></td><td></td><td></td><td class="s"> my %uniq;</td></tr>
<tr><td class="h"><a name="752"></a>752</td><td></td><td></td><td></td><td></td><td class="s"> return grep { !$uniq{$_}++ } map { $self->initialize($_)->get_method_list } $self->linearized_isa;</td></tr>
<tr><td class="h"><a name="753"></a>753</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="754"></a>754</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="755"></a>755</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 187µs (41+146) within Class::MOP::Class::find_all_methods_by_name which was called 2 times, avg 93µs/call:
# once (28µs+74µs) by Moose::Meta::Method::Constructor::_generate_BUILDALL at <a href="Moose-Meta-Method-Constructor-pm-block.html#153">line 153 of Moose/Meta/Method/Constructor.pm</a>
# once (14µs+71µs) by Moose::Meta::Method::Destructor::_initialize_body at <a href="Moose-Meta-Method-Destructor-pm-block.html#81">line 81 of Moose/Meta/Method/Destructor.pm</a></div></div>sub find_all_methods_by_name {</td></tr>
<tr><td class="h"><a name="756"></a>756</td><td class="c3">10</td><td class="c3"><span title="Avg 1µs">13µs</span></td><td></td><td></td><td class="s"> my ($self, $method_name) = @_;</td></tr>
<tr><td class="h"><a name="757"></a>757</td><td></td><td></td><td></td><td></td><td class="s"> (defined $method_name && length $method_name)</td></tr>
<tr><td class="h"><a name="758"></a>758</td><td></td><td></td><td></td><td></td><td class="s"> || confess "You must define a method name to find";</td></tr>
<tr><td class="h"><a name="759"></a>759</td><td></td><td></td><td></td><td></td><td class="s"> my @methods;</td></tr>
<tr><td class="h"><a name="760"></a>760</td><td></td><td></td><td></td><td></td><td class="s"> foreach my $class ($self->linearized_isa) {<div class="calls"><div class="calls_out"> # spent 12µs making 2 calls to <a href="Class-MOP-Class-pm-block.html#608">Class::MOP::Class::linearized_isa</a>, avg 6µs/call</div></div></td></tr>
<tr><td class="h"><a name="761"></a>761</td><td></td><td></td><td></td><td></td><td class="s"> # fetch the meta-class ...</td></tr>
<tr><td class="h"><a name="762"></a>762</td><td class="c3">8</td><td class="c3"><span title="Avg 1µs">11µs</span></td><td class="c0">4</td><td class="c3">17µs</td><td class="s"> my $meta = $self->initialize($class);<div class="calls"><div class="calls_out"> # spent 17µs making 4 calls to <a href="Moose-Meta-Class-pm-block.html#59">Moose::Meta::Class::initialize</a>, avg 4µs/call</div></div></td></tr>
<tr><td class="h"><a name="763"></a>763</td><td></td><td></td><td></td><td></td><td class="s"> push @methods => {<div class="calls"><div class="calls_out"> # spent 117µs making 4 calls to <a href="Class-MOP-Mixin-HasMethods-pm-block.html#84">Class::MOP::Mixin::HasMethods::has_method</a>, avg 29µs/call</div></div></td></tr>
<tr><td class="h"><a name="764"></a>764</td><td></td><td></td><td></td><td></td><td class="s"> name => $method_name,</td></tr>
<tr><td class="h"><a name="765"></a>765</td><td></td><td></td><td></td><td></td><td class="s"> class => $class,</td></tr>
<tr><td class="h"><a name="766"></a>766</td><td></td><td></td><td></td><td></td><td class="s"> code => $meta->get_method($method_name)</td></tr>
<tr><td class="h"><a name="767"></a>767</td><td></td><td></td><td></td><td></td><td class="s"> } if $meta->has_method($method_name);</td></tr>
<tr><td class="h"><a name="768"></a>768</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="769"></a>769</td><td></td><td></td><td></td><td></td><td class="s"> return @methods;</td></tr>
<tr><td class="h"><a name="770"></a>770</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="771"></a>771</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="772"></a>772</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 5.06ms (979µs+4.08) within Class::MOP::Class::find_next_method_by_name which was called 69 times, avg 73µs/call:
# 36 times (588µs+2.18ms) by Class::MOP::Class::__ANON__[/usr/local/lib/perl5/site_perl/5.10.1/darwin-2level/Class/MOP/Class.pm:678] at <a href="Class-MOP-Class-pm-block.html#657">line 657</a>, avg 77µs/call
# 33 times (391µs+1.91ms) by Class::MOP::Method::Inlined::can_be_inlined at <a href="Class-MOP-Method-Inlined-pm-block.html#40">line 40 of Class/MOP/Method/Inlined.pm</a>, avg 70µs/call</div></div>sub find_next_method_by_name {</td></tr>
<tr><td class="h"><a name="773"></a>773</td><td class="c0">348</td><td class="c1"><span title="Avg 864ns">301µs</span></td><td></td><td></td><td class="s"> my ($self, $method_name) = @_;</td></tr>
<tr><td class="h"><a name="774"></a>774</td><td></td><td></td><td></td><td></td><td class="s"> (defined $method_name && length $method_name)</td></tr>
<tr><td class="h"><a name="775"></a>775</td><td></td><td></td><td></td><td></td><td class="s"> || confess "You must define a method name to find";</td></tr>
<tr><td class="h"><a name="776"></a>776</td><td></td><td></td><td></td><td></td><td class="s"> my @cpl = $self->linearized_isa;<div class="calls"><div class="calls_out"> # spent 438µs making 69 calls to <a href="Class-MOP-Class-pm-block.html#608">Class::MOP::Class::linearized_isa</a>, avg 6µs/call</div></div></td></tr>
<tr><td class="h"><a name="777"></a>777</td><td></td><td></td><td></td><td></td><td class="s"> shift @cpl; # discard ourselves</td></tr>
<tr><td class="h"><a name="778"></a>778</td><td></td><td></td><td></td><td></td><td class="s"> foreach my $class (@cpl) {</td></tr>
<tr><td class="h"><a name="779"></a>779</td><td class="c0">228</td><td class="c0"><span title="Avg 2µs">411µs</span></td><td class="c0">228</td><td class="c0">3.65ms</td><td class="s"> my $method = $self->initialize($class)->get_method($method_name);<div class="calls"><div class="calls_out"> # spent 3.08ms making 114 calls to <a href="Class-MOP-Mixin-HasMethods-pm-block.html#93">Class::MOP::Mixin::HasMethods::get_method</a>, avg 27µs/call
# spent 552µs making 112 calls to <a href="Class-MOP-Class-pm-block.html#26">Class::MOP::Class::initialize</a>, avg 5µs/call
# spent 9µs making 2 calls to <a href="Moose-Meta-Class-pm-block.html#59">Moose::Meta::Class::initialize</a>, avg 4µs/call</div></div></td></tr>
<tr><td class="h"><a name="780"></a>780</td><td></td><td></td><td></td><td></td><td class="s"> return $method if defined $method;</td></tr>
<tr><td class="h"><a name="781"></a>781</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="782"></a>782</td><td></td><td></td><td></td><td></td><td class="s"> return;</td></tr>
<tr><td class="h"><a name="783"></a>783</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="784"></a>784</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="785"></a>785</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 8µs within Class::MOP::Class::update_meta_instance_dependencies which was called 3 times, avg 3µs/call:
# 3 times (8µs+0s) by Class::MOP::Class::_superclasses_updated at <a href="Class-MOP-Class-pm-block.html#587">line 587</a>, avg 3µs/call</div></div>sub update_meta_instance_dependencies {</td></tr>
<tr><td class="h"><a name="786"></a>786</td><td class="c3">6</td><td class="c3"><span title="Avg 2µs">10µs</span></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="787"></a>787</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="788"></a>788</td><td></td><td></td><td></td><td></td><td class="s"> if ( $self->{meta_instance_dependencies} ) {</td></tr>
<tr><td class="h"><a name="789"></a>789</td><td></td><td></td><td></td><td></td><td class="s"> return $self->add_meta_instance_dependencies;</td></tr>
<tr><td class="h"><a name="790"></a>790</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="791"></a>791</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="792"></a>792</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="793"></a>793</td><td></td><td></td><td></td><td></td><td class="s">sub add_meta_instance_dependencies {</td></tr>
<tr><td class="h"><a name="794"></a>794</td><td></td><td></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="795"></a>795</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="796"></a>796</td><td></td><td></td><td></td><td></td><td class="s"> $self->remove_meta_instance_dependencies;</td></tr>
<tr><td class="h"><a name="797"></a>797</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="798"></a>798</td><td></td><td></td><td></td><td></td><td class="s"> my @attrs = $self->get_all_attributes();</td></tr>
<tr><td class="h"><a name="799"></a>799</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="800"></a>800</td><td></td><td></td><td></td><td></td><td class="s"> my %seen;</td></tr>
<tr><td class="h"><a name="801"></a>801</td><td></td><td></td><td></td><td></td><td class="s"> my @classes = grep { not $seen{ $_->name }++ }</td></tr>
<tr><td class="h"><a name="802"></a>802</td><td></td><td></td><td></td><td></td><td class="s"> map { $_->associated_class } @attrs;</td></tr>
<tr><td class="h"><a name="803"></a>803</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="804"></a>804</td><td></td><td></td><td></td><td></td><td class="s"> foreach my $class (@classes) {</td></tr>
<tr><td class="h"><a name="805"></a>805</td><td></td><td></td><td></td><td></td><td class="s"> $class->add_dependent_meta_instance($self);</td></tr>
<tr><td class="h"><a name="806"></a>806</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="807"></a>807</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="808"></a>808</td><td></td><td></td><td></td><td></td><td class="s"> $self->{meta_instance_dependencies} = \@classes;</td></tr>
<tr><td class="h"><a name="809"></a>809</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="810"></a>810</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="811"></a>811</td><td></td><td></td><td></td><td></td><td class="s">sub remove_meta_instance_dependencies {</td></tr>
<tr><td class="h"><a name="812"></a>812</td><td></td><td></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="813"></a>813</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="814"></a>814</td><td></td><td></td><td></td><td></td><td class="s"> if ( my $classes = delete $self->{meta_instance_dependencies} ) {</td></tr>
<tr><td class="h"><a name="815"></a>815</td><td></td><td></td><td></td><td></td><td class="s"> foreach my $class (@$classes) {</td></tr>
<tr><td class="h"><a name="816"></a>816</td><td></td><td></td><td></td><td></td><td class="s"> $class->remove_dependent_meta_instance($self);</td></tr>
<tr><td class="h"><a name="817"></a>817</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="818"></a>818</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="819"></a>819</td><td></td><td></td><td></td><td></td><td class="s"> return $classes;</td></tr>
<tr><td class="h"><a name="820"></a>820</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="821"></a>821</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="822"></a>822</td><td></td><td></td><td></td><td></td><td class="s"> return;</td></tr>
<tr><td class="h"><a name="823"></a>823</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="824"></a>824</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="825"></a>825</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="826"></a>826</td><td></td><td></td><td></td><td></td><td class="s">sub add_dependent_meta_instance {</td></tr>
<tr><td class="h"><a name="827"></a>827</td><td></td><td></td><td></td><td></td><td class="s"> my ( $self, $metaclass ) = @_;</td></tr>
<tr><td class="h"><a name="828"></a>828</td><td></td><td></td><td></td><td></td><td class="s"> push @{ $self->{dependent_meta_instances} }, $metaclass;</td></tr>
<tr><td class="h"><a name="829"></a>829</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="830"></a>830</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="831"></a>831</td><td></td><td></td><td></td><td></td><td class="s">sub remove_dependent_meta_instance {</td></tr>
<tr><td class="h"><a name="832"></a>832</td><td></td><td></td><td></td><td></td><td class="s"> my ( $self, $metaclass ) = @_;</td></tr>
<tr><td class="h"><a name="833"></a>833</td><td></td><td></td><td></td><td></td><td class="s"> my $name = $metaclass->name;</td></tr>
<tr><td class="h"><a name="834"></a>834</td><td></td><td></td><td></td><td></td><td class="s"> @$_ = grep { $_->name ne $name } @$_</td></tr>
<tr><td class="h"><a name="835"></a>835</td><td></td><td></td><td></td><td></td><td class="s"> for $self->{dependent_meta_instances};</td></tr>
<tr><td class="h"><a name="836"></a>836</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="837"></a>837</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="838"></a>838</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 780µs (628+152) within Class::MOP::Class::invalidate_meta_instances which was called 119 times, avg 7µs/call:
# 119 times (628µs+152µs) by Class::MOP::Class::_post_add_attribute at <a href="Class-MOP-Class-pm-block.html#509">line 509</a>, avg 7µs/call</div></div>sub invalidate_meta_instances {</td></tr>
<tr><td class="h"><a name="839"></a>839</td><td class="c0">357</td><td class="c0"><span title="Avg 1µs">533µs</span></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="840"></a>840</td><td></td><td></td><td></td><td></td><td class="s"> $_->invalidate_meta_instance()</td></tr>
<tr><td class="h"><a name="841"></a>841</td><td></td><td></td><td></td><td></td><td class="s"> for $self, @{ $self->{dependent_meta_instances} };<div class="calls"><div class="calls_out"> # spent 152µs making 119 calls to <a href="Class-MOP-Class-pm-block.html#844">Class::MOP::Class::invalidate_meta_instance</a>, avg 1µs/call</div></div></td></tr>
<tr><td class="h"><a name="842"></a>842</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="843"></a>843</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="844"></a>844</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 152µs within Class::MOP::Class::invalidate_meta_instance which was called 119 times, avg 1µs/call:
# 119 times (152µs+0s) by Class::MOP::Class::invalidate_meta_instances at <a href="Class-MOP-Class-pm-block.html#841">line 841</a>, avg 1µs/call</div></div>sub invalidate_meta_instance {</td></tr>
<tr><td class="h"><a name="845"></a>845</td><td class="c0">238</td><td class="c1"><span title="Avg 1µs">261µs</span></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="846"></a>846</td><td></td><td></td><td></td><td></td><td class="s"> undef $self->{_meta_instance};</td></tr>
<tr><td class="h"><a name="847"></a>847</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="848"></a>848</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="849"></a>849</td><td></td><td></td><td></td><td></td><td class="s"># check if we can reinitialize</td></tr>
<tr><td class="h"><a name="850"></a>850</td><td></td><td></td><td></td><td></td><td class="s">sub is_pristine {</td></tr>
<tr><td class="h"><a name="851"></a>851</td><td></td><td></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="852"></a>852</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="853"></a>853</td><td></td><td></td><td></td><td></td><td class="s"> # if any local attr is defined</td></tr>
<tr><td class="h"><a name="854"></a>854</td><td></td><td></td><td></td><td></td><td class="s"> return if $self->get_attribute_list;</td></tr>
<tr><td class="h"><a name="855"></a>855</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="856"></a>856</td><td></td><td></td><td></td><td></td><td class="s"> # or any non-declared methods</td></tr>
<tr><td class="h"><a name="857"></a>857</td><td></td><td></td><td></td><td></td><td class="s"> for my $method ( map { $self->get_method($_) } $self->get_method_list ) {</td></tr>
<tr><td class="h"><a name="858"></a>858</td><td></td><td></td><td></td><td></td><td class="s"> return if $method->isa("Class::MOP::Method::Generated");</td></tr>
<tr><td class="h"><a name="859"></a>859</td><td></td><td></td><td></td><td></td><td class="s"> # FIXME do we need to enforce this too? return unless $method->isa( $self->method_metaclass );</td></tr>
<tr><td class="h"><a name="860"></a>860</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="861"></a>861</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="862"></a>862</td><td></td><td></td><td></td><td></td><td class="s"> return 1;</td></tr>
<tr><td class="h"><a name="863"></a>863</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="864"></a>864</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="865"></a>865</td><td></td><td></td><td></td><td></td><td class="s">## Class closing</td></tr>
<tr><td class="h"><a name="866"></a>866</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="867"></a>867</td><td class="c3">82</td><td class="c3"><span title="Avg 2µs">123µs</span></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 54µs within Class::MOP::Class::is_mutable which was called 82 times, avg 662ns/call:
# 51 times (36µs+0s) by Class::MOP::Class::make_immutable at <a href="Class-MOP-Class-pm-block.html#891">line 891</a>, avg 710ns/call
# 22 times (12µs+0s) by SimpleDB::Client::BEGIN@46 at <a href="Moose-pm-block.html#239">line 239 of Moose.pm</a>, avg 564ns/call
# 9 times (6µs+0s) by Moose::Meta::Attribute::BEGIN@18 at <a href="Moose-Util-TypeConstraints-pm-block.html#631">line 631 of Moose/Util/TypeConstraints.pm</a>, avg 633ns/call</div></div>sub is_mutable { 1 }</td></tr>
<tr><td class="h"><a name="868"></a>868</td><td class="c3">6</td><td class="c3"><span title="Avg 3µs">20µs</span></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 7µs within Class::MOP::Class::is_immutable which was called 6 times, avg 1µs/call:
# 3 times (4µs+0s) by Class::MOP::Class::_construct_class_instance at <a href="Class-MOP-Class-pm-block.html#71">line 71</a>, avg 1µs/call
# once (1µs+0s) by Moose::Meta::Class::_superclass_meta_is_compatible at <a href="Moose-Meta-Class-pm-block.html#373">line 373 of Moose/Meta/Class.pm</a>
# once (800ns+0s) by Class::MOP::Class::_immutable_metaclass at <a href="Class-MOP-Class-pm-block.html#956">line 956</a>
# once (700ns+0s) by Class::MOP::Class::_check_metaclass_compatibility at <a href="Class-MOP-Class-pm-block.html#185">line 185</a></div></div>sub is_immutable { 0 }</td></tr>
<tr><td class="h"><a name="869"></a>869</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="870"></a>870</td><td></td><td></td><td></td><td></td><td class="s">sub immutable_options { %{ $_[0]{__immutable}{options} || {} } }</td></tr>
<tr><td class="h"><a name="871"></a>871</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="872"></a>872</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 881µs (618+264) within Class::MOP::Class::_immutable_options which was called 51 times, avg 17µs/call:
# 50 times (596µs+251µs) by Class::MOP::Class::make_immutable at <a href="Class-MOP-Class-pm-block.html#892">line 892</a>, avg 17µs/call
# once (22µs+13µs) by Moose::Meta::Class::_immutable_options at <a href="Moose-Meta-Class-pm-block.html#74">line 74 of Moose/Meta/Class.pm</a></div></div>sub _immutable_options {</td></tr>
<tr><td class="h"><a name="873"></a>873</td><td class="c2">102</td><td class="c0"><span title="Avg 5µs">465µs</span></td><td></td><td></td><td class="s"> my ( $self, @args ) = @_;</td></tr>
<tr><td class="h"><a name="874"></a>874</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="875"></a>875</td><td></td><td></td><td></td><td></td><td class="s"> return (</td></tr>
<tr><td class="h"><a name="876"></a>876</td><td></td><td></td><td></td><td></td><td class="s"> inline_accessors => 1,<div class="calls"><div class="calls_out"> # spent 80µs making 50 calls to <a href="Class-MOP-Class-pm-block.html#334">Class::MOP::Class::immutable_trait</a>, avg 2µs/call
# spent 67µs making 51 calls to <a href="Class-MOP-Class-pm-block.html#336">Class::MOP::Class::constructor_name</a>, avg 1µs/call
# spent 59µs making 50 calls to <a href="Class-MOP-Class-pm-block.html#335">Class::MOP::Class::constructor_class</a>, avg 1µs/call
# spent 47µs making 50 calls to <a href="Class-MOP-Class-pm-block.html#337">Class::MOP::Class::destructor_class</a>, avg 936ns/call
# spent 4µs making 1 call to <a >Moose::Meta::Class::immutable_trait</a>
# spent 3µs making 1 call to <a >Moose::Meta::Class::constructor_class</a>
# spent 3µs making 1 call to <a >Moose::Meta::Class::destructor_class</a></div></div></td></tr>
<tr><td class="h"><a name="877"></a>877</td><td></td><td></td><td></td><td></td><td class="s"> inline_constructor => 1,</td></tr>
<tr><td class="h"><a name="878"></a>878</td><td></td><td></td><td></td><td></td><td class="s"> inline_destructor => 0,</td></tr>
<tr><td class="h"><a name="879"></a>879</td><td></td><td></td><td></td><td></td><td class="s"> debug => 0,</td></tr>
<tr><td class="h"><a name="880"></a>880</td><td></td><td></td><td></td><td></td><td class="s"> immutable_trait => $self->immutable_trait,</td></tr>
<tr><td class="h"><a name="881"></a>881</td><td></td><td></td><td></td><td></td><td class="s"> constructor_name => $self->constructor_name,</td></tr>
<tr><td class="h"><a name="882"></a>882</td><td></td><td></td><td></td><td></td><td class="s"> constructor_class => $self->constructor_class,</td></tr>
<tr><td class="h"><a name="883"></a>883</td><td></td><td></td><td></td><td></td><td class="s"> destructor_class => $self->destructor_class,</td></tr>
<tr><td class="h"><a name="884"></a>884</td><td></td><td></td><td></td><td></td><td class="s"> @args,</td></tr>
<tr><td class="h"><a name="885"></a>885</td><td></td><td></td><td></td><td></td><td class="s"> );</td></tr>
<tr><td class="h"><a name="886"></a>886</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="887"></a>887</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="888"></a>888</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 86.6ms (731µs+85.9) within Class::MOP::Class::make_immutable which was called 51 times, avg 1.70ms/call:
# 22 times (323µs+36.5ms) by SimpleDB::Client::BEGIN@46 at <a href="Moose-pm-block.html#244">line 244 of Moose.pm</a>, avg 1.68ms/call
# 12 times (146µs+13.4ms) by Moose::Exporter::BEGIN@11 at <a href="Class-MOP-pm-block.html#678">line 678 of Class/MOP.pm</a>, avg 1.13ms/call
# 9 times (134µs+16.6ms) by Moose::Meta::Attribute::BEGIN@18 at <a href="Moose-Util-TypeConstraints-pm-block.html#636">line 636 of Moose/Util/TypeConstraints.pm</a>, avg 1.86ms/call
# 4 times (52µs+399µs) by Moose::Exporter::BEGIN@11 at <a href="Class-MOP-pm-block.html#701">line 701 of Class/MOP.pm</a>, avg 113µs/call
# 2 times (34µs+-34µs) by Class::MOP::Class::_immutable_metaclass at <a href="Class-MOP-Class-pm-block.html#979">line 979</a>, avg 0s/call
# once (25µs+14.2ms) by main::BEGIN@2 at <a href="lib-SimpleDB-Client-pm-block.html#332">line 332 of ../lib/SimpleDB/Client.pm</a>
# once (18µs+4.85ms) by SimpleDB::Client::BEGIN@46 at <a href="Moose-pm-block.html#276">line 276 of Moose.pm</a></div></div>sub make_immutable {</td></tr>
<tr><td class="h"><a name="889"></a>889</td><td class="c2">102</td><td class="c3"><span title="Avg 1µs">128µs</span></td><td></td><td></td><td class="s"> my ( $self, @args ) = @_;</td></tr>
<tr><td class="h"><a name="890"></a>890</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="891"></a>891</td><td class="c1">153</td><td class="c0"><span title="Avg 3µs">448µs</span></td><td class="c0">51</td><td class="c3">36µs</td><td class="s"> if ( $self->is_mutable ) {<div class="calls"><div class="calls_out"> # spent 36µs making 51 calls to <a href="Class-MOP-Class-pm-block.html#867">Class::MOP::Class::is_mutable</a>, avg 710ns/call</div></div></td></tr>
<tr><td class="h"><a name="892"></a>892</td><td></td><td></td><td></td><td></td><td class="s"> $self->_initialize_immutable( $self->_immutable_options(@args) );<div class="calls"><div class="calls_out"> # spent 58.1ms making 51 calls to <a href="Class-MOP-Class-pm-block.html#1002">Class::MOP::Class::_initialize_immutable</a>, avg 1.14ms/call
# spent 847µs making 50 calls to <a href="Class-MOP-Class-pm-block.html#872">Class::MOP::Class::_immutable_options</a>, avg 17µs/call
# spent 45µs making 1 call to <a href="Moose-Meta-Class-pm-block.html#71">Moose::Meta::Class::_immutable_options</a></div></div></td></tr>
<tr><td class="h"><a name="893"></a>893</td><td></td><td></td><td></td><td></td><td class="s"> $self->_rebless_as_immutable(@args);<div class="calls"><div class="calls_out"> # spent 27.1ms making 51 calls to <a href="Class-MOP-Class-pm-block.html#916">Class::MOP::Class::_rebless_as_immutable</a>, avg 532µs/call, recursion: max depth 1, time 177µs</div></div></td></tr>
<tr><td class="h"><a name="894"></a>894</td><td></td><td></td><td></td><td></td><td class="s"> return $self;</td></tr>
<tr><td class="h"><a name="895"></a>895</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="896"></a>896</td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr>
<tr><td class="h"><a name="897"></a>897</td><td></td><td></td><td></td><td></td><td class="s"> return;</td></tr>
<tr><td class="h"><a name="898"></a>898</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="899"></a>899</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="900"></a>900</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="901"></a>901</td><td></td><td></td><td></td><td></td><td class="s">sub make_mutable {</td></tr>
<tr><td class="h"><a name="902"></a>902</td><td></td><td></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="903"></a>903</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="904"></a>904</td><td></td><td></td><td></td><td></td><td class="s"> if ( $self->is_immutable ) {</td></tr>
<tr><td class="h"><a name="905"></a>905</td><td></td><td></td><td></td><td></td><td class="s"> my @args = $self->immutable_options;</td></tr>
<tr><td class="h"><a name="906"></a>906</td><td></td><td></td><td></td><td></td><td class="s"> $self->_rebless_as_mutable();</td></tr>
<tr><td class="h"><a name="907"></a>907</td><td></td><td></td><td></td><td></td><td class="s"> $self->_remove_inlined_code(@args);</td></tr>
<tr><td class="h"><a name="908"></a>908</td><td></td><td></td><td></td><td></td><td class="s"> delete $self->{__immutable};</td></tr>
<tr><td class="h"><a name="909"></a>909</td><td></td><td></td><td></td><td></td><td class="s"> return $self;</td></tr>
<tr><td class="h"><a name="910"></a>910</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="911"></a>911</td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr>
<tr><td class="h"><a name="912"></a>912</td><td></td><td></td><td></td><td></td><td class="s"> return;</td></tr>
<tr><td class="h"><a name="913"></a>913</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="914"></a>914</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="915"></a>915</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="916"></a>916</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 27.0ms (383µs+26.6) within Class::MOP::Class::_rebless_as_immutable which was called 51 times, avg 529µs/call:
# 51 times (383µs+26.6ms) by Class::MOP::Class::make_immutable at <a href="Class-MOP-Class-pm-block.html#893">line 893</a>, avg 529µs/call</div></div>sub _rebless_as_immutable {</td></tr>
<tr><td class="h"><a name="917"></a>917</td><td class="c1">153</td><td class="c0"><span title="Avg 2µs">349µs</span></td><td></td><td></td><td class="s"> my ( $self, @args ) = @_;</td></tr>
<tr><td class="h"><a name="918"></a>918</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="919"></a>919</td><td></td><td></td><td></td><td></td><td class="s"> $self->{__immutable}{original_class} = ref $self;</td></tr>
<tr><td class="h"><a name="920"></a>920</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="921"></a>921</td><td></td><td></td><td></td><td></td><td class="s"> bless $self => $self->_immutable_metaclass(@args);<div class="calls"><div class="calls_out"> # spent 26.8ms making 51 calls to <a href="Class-MOP-Class-pm-block.html#924">Class::MOP::Class::_immutable_metaclass</a>, avg 525µs/call, recursion: max depth 1, time 147µs</div></div></td></tr>
<tr><td class="h"><a name="922"></a>922</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="923"></a>923</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="924"></a>924</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 26.6ms (1.30+25.3) within Class::MOP::Class::_immutable_metaclass which was called 51 times, avg 522µs/call:
# 51 times (1.30ms+25.3ms) by Class::MOP::Class::_rebless_as_immutable at <a href="Class-MOP-Class-pm-block.html#921">line 921</a>, avg 522µs/call</div></div>sub _immutable_metaclass {</td></tr>
<tr><td class="h"><a name="925"></a>925</td><td class="c0">420</td><td class="c0"><span title="Avg 2µs">856µs</span></td><td></td><td></td><td class="s"> my ( $self, %args ) = @_;</td></tr>
<tr><td class="h"><a name="926"></a>926</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="927"></a>927</td><td></td><td></td><td></td><td></td><td class="s"> if ( my $class = $args{immutable_metaclass} ) {</td></tr>
<tr><td class="h"><a name="928"></a>928</td><td></td><td></td><td></td><td></td><td class="s"> return $class;</td></tr>
<tr><td class="h"><a name="929"></a>929</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="930"></a>930</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="931"></a>931</td><td></td><td></td><td></td><td></td><td class="s"> my $trait = $args{immutable_trait} = $self->immutable_trait<div class="calls"><div class="calls_out"> # spent 58µs making 50 calls to <a href="Class-MOP-Class-pm-block.html#334">Class::MOP::Class::immutable_trait</a>, avg 1µs/call
# spent 2µs making 1 call to <a >Moose::Meta::Class::immutable_trait</a></div></div></td></tr>
<tr><td class="h"><a name="932"></a>932</td><td></td><td></td><td></td><td></td><td class="s"> || confess "no immutable trait specified for $self";</td></tr>
<tr><td class="h"><a name="933"></a>933</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="934"></a>934</td><td></td><td></td><td></td><td></td><td class="s"> my $meta = $self->meta;<div class="calls"><div class="calls_out"> # spent 556µs making 51 calls to <a href="Class-MOP-Object-pm-block.html#15">Class::MOP::Object::meta</a>, avg 11µs/call</div></div></td></tr>
<tr><td class="h"><a name="935"></a>935</td><td></td><td></td><td></td><td></td><td class="s"> my $meta_attr = $meta->find_attribute_by_name("immutable_trait");<div class="calls"><div class="calls_out"> # spent 1.67ms making 51 calls to <a href="Class-MOP-Class-pm-block.html#536">Class::MOP::Class::find_attribute_by_name</a>, avg 33µs/call</div></div></td></tr>
<tr><td class="h"><a name="936"></a>936</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="937"></a>937</td><td></td><td></td><td></td><td></td><td class="s"> my $class_name;</td></tr>
<tr><td class="h"><a name="938"></a>938</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="939"></a>939</td><td></td><td></td><td></td><td></td><td class="s"> if ( $meta_attr and $trait eq $meta_attr->default ) {<div class="calls"><div class="calls_out"> # spent 111µs making 51 calls to <a href="Class-MOP-Mixin-AttributeCore-pm-block.html#51">Class::MOP::Mixin::AttributeCore::default</a>, avg 2µs/call</div></div></td></tr>
<tr><td class="h"><a name="940"></a>940</td><td></td><td></td><td></td><td></td><td class="s"> # if the trait is the same as the default we try and pick a</td></tr>
<tr><td class="h"><a name="941"></a>941</td><td></td><td></td><td></td><td></td><td class="s"> # predictable name for the immutable metaclass</td></tr>
<tr><td class="h"><a name="942"></a>942</td><td></td><td></td><td></td><td></td><td class="s"> $class_name = 'Class::MOP::Class::Immutable::' . ref($self);</td></tr>
<tr><td class="h"><a name="943"></a>943</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="944"></a>944</td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr>
<tr><td class="h"><a name="945"></a>945</td><td></td><td></td><td></td><td></td><td class="s"> $class_name = join '::', 'Class::MOP::Class::Immutable::CustomTrait',</td></tr>
<tr><td class="h"><a name="946"></a>946</td><td></td><td></td><td></td><td></td><td class="s"> $trait, 'ForMetaClass', ref($self);</td></tr>
<tr><td class="h"><a name="947"></a>947</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="948"></a>948</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="949"></a>949</td><td></td><td></td><td></td><td></td><td class="s"> return $class_name<div class="calls"><div class="calls_out"> # spent 130µs making 51 calls to <a href="Class-MOP-pm-block.html#Class__MOP__is_class_loaded">Class::MOP::is_class_loaded</a>, avg 3µs/call</div></div></td></tr>
<tr><td class="h"><a name="950"></a>950</td><td></td><td></td><td></td><td></td><td class="s"> if Class::MOP::is_class_loaded($class_name);</td></tr>
<tr><td class="h"><a name="951"></a>951</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="952"></a>952</td><td></td><td></td><td></td><td></td><td class="s"> # If the metaclass is a subclass of CMOP::Class which has had</td></tr>
<tr><td class="h"><a name="953"></a>953</td><td></td><td></td><td></td><td></td><td class="s"> # metaclass roles applied (via Moose), then we want to make sure</td></tr>
<tr><td class="h"><a name="954"></a>954</td><td></td><td></td><td></td><td></td><td class="s"> # that we preserve that anonymous class (see Fey::ORM for an</td></tr>
<tr><td class="h"><a name="955"></a>955</td><td></td><td></td><td></td><td></td><td class="s"> # example of where this matters).</td></tr>
<tr><td class="h"><a name="956"></a>956</td><td></td><td></td><td></td><td></td><td class="s"> my $meta_name<div class="calls"><div class="calls_out"> # spent 11µs making 1 call to <a >Class::MOP::Class::Immutable::Class::MOP::Class::is_immutable</a>
# spent 4µs making 1 call to <a href="Class-MOP-Class-Immutable-Trait-pm-block.html#16">Class::MOP::Class::Immutable::Trait::_get_mutable_metaclass_name</a>
# spent 800ns making 1 call to <a href="Class-MOP-Class-pm-block.html#868">Class::MOP::Class::is_immutable</a></div></div></td></tr>
<tr><td class="h"><a name="957"></a>957</td><td></td><td></td><td></td><td></td><td class="s"> = $meta->is_immutable</td></tr>
<tr><td class="h"><a name="958"></a>958</td><td></td><td></td><td></td><td></td><td class="s"> ? $meta->_get_mutable_metaclass_name</td></tr>
<tr><td class="h"><a name="959"></a>959</td><td></td><td></td><td></td><td></td><td class="s"> : ref $meta;</td></tr>
<tr><td class="h"><a name="960"></a>960</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="961"></a>961</td><td></td><td></td><td></td><td></td><td class="s"> my $immutable_meta = $meta_name->create(<div class="calls"><div class="calls_out"> # spent 550µs making 2 calls to <a href="Class-MOP-Class-pm-block.html#269">Class::MOP::Class::create</a>, avg 275µs/call</div></div></td></tr>
<tr><td class="h"><a name="962"></a>962</td><td></td><td></td><td></td><td></td><td class="s"> $class_name,</td></tr>
<tr><td class="h"><a name="963"></a>963</td><td></td><td></td><td></td><td></td><td class="s"> superclasses => [ ref $self ],</td></tr>
<tr><td class="h"><a name="964"></a>964</td><td></td><td></td><td></td><td></td><td class="s"> );</td></tr>
<tr><td class="h"><a name="965"></a>965</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="966"></a>966</td><td></td><td></td><td></td><td></td><td class="s"> Class::MOP::load_class($trait);<div class="calls"><div class="calls_out"> # spent 888µs making 2 calls to <a href="Class-MOP-pm-block.html#120">Class::MOP::load_class</a>, avg 444µs/call</div></div></td></tr>
<tr><td class="h"><a name="967"></a>967</td><td></td><td></td><td></td><td></td><td class="s"> for my $meth ( Class::MOP::Class->initialize($trait)->get_all_methods ) {<div class="calls"><div class="calls_out"> # spent 3.74ms making 2 calls to <a href="Class-MOP-Class-pm-block.html#735">Class::MOP::Class::get_all_methods</a>, avg 1.87ms/call
# spent 91µs making 2 calls to <a href="Class-MOP-Class-pm-block.html#26">Class::MOP::Class::initialize</a>, avg 45µs/call</div></div></td></tr>
<tr><td class="h"><a name="968"></a>968</td><td class="c3">84</td><td class="c1"><span title="Avg 4µs">325µs</span></td><td class="c0">42</td><td class="c3">27µs</td><td class="s"> my $meth_name = $meth->name;<div class="calls"><div class="calls_out"> # spent 27µs making 42 calls to <a href="Class-MOP-Method-pm-block.html#Class__MOP__Method__name">Class::MOP::Method::name</a>, avg 648ns/call</div></div></td></tr>
<tr><td class="h"><a name="969"></a>969</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="970"></a>970</td><td class="c3">6</td><td class="c3"><span title="Avg 3µs">16µs</span></td><td class="c0">114</td><td class="c0">15.4ms</td><td class="s"> if ( $immutable_meta->find_method_by_name( $meth_name ) ) {<div class="calls"><div class="calls_out"> # spent 8.56ms making 36 calls to <a href="Class-MOP-Class-pm-block.html#700">Class::MOP::Class::add_around_method_modifier</a>, avg 238µs/call
# spent 6.85ms making 42 calls to <a href="Class-MOP-Class-pm-block.html#724">Class::MOP::Class::find_method_by_name</a>, avg 163µs/call
# spent 23µs making 36 calls to <a href="Class-MOP-Method-pm-block.html#Class__MOP__Method__body">Class::MOP::Method::body</a>, avg 633ns/call</div></div></td></tr>
<tr><td class="h"><a name="971"></a>971</td><td></td><td></td><td></td><td></td><td class="s"> $immutable_meta->add_around_method_modifier( $meth_name, $meth->body );</td></tr>
<tr><td class="h"><a name="972"></a>972</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="973"></a>973</td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr>
<tr><td class="h"><a name="974"></a>974</td><td></td><td></td><td></td><td></td><td class="s"> $immutable_meta->add_method( $meth_name, $meth->clone );<div class="calls"><div class="calls_out"> # spent 1.07ms making 6 calls to <a href="Class-MOP-Mixin-HasMethods-pm-block.html#37">Class::MOP::Mixin::HasMethods::add_method</a>, avg 179µs/call
# spent 816µs making 6 calls to <a >Class::MOP::Method::clone</a>, avg 136µs/call</div></div></td></tr>
<tr><td class="h"><a name="975"></a>975</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="976"></a>976</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="977"></a>977</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="978"></a>978</td><td></td><td></td><td></td><td></td><td class="s"> $immutable_meta->make_immutable(</td></tr>
<tr><td class="h"><a name="979"></a>979</td><td></td><td></td><td></td><td></td><td class="s"> inline_constructor => 0,<div class="calls"><div class="calls_out"> # spent 298µs making 2 calls to <a href="Class-MOP-Class-pm-block.html#888">Class::MOP::Class::make_immutable</a>, avg 149µs/call, recursion: max depth 1, time 298µs</div></div></td></tr>
<tr><td class="h"><a name="980"></a>980</td><td></td><td></td><td></td><td></td><td class="s"> inline_accessors => 0,</td></tr>
<tr><td class="h"><a name="981"></a>981</td><td></td><td></td><td></td><td></td><td class="s"> );</td></tr>
<tr><td class="h"><a name="982"></a>982</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="983"></a>983</td><td></td><td></td><td></td><td></td><td class="s"> return $class_name;</td></tr>
<tr><td class="h"><a name="984"></a>984</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="985"></a>985</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="986"></a>986</td><td></td><td></td><td></td><td></td><td class="s">sub _remove_inlined_code {</td></tr>
<tr><td class="h"><a name="987"></a>987</td><td></td><td></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="988"></a>988</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="989"></a>989</td><td></td><td></td><td></td><td></td><td class="s"> $self->remove_method( $_->name ) for $self->_inlined_methods;</td></tr>
<tr><td class="h"><a name="990"></a>990</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="991"></a>991</td><td></td><td></td><td></td><td></td><td class="s"> delete $self->{__immutable}{inlined_methods};</td></tr>
<tr><td class="h"><a name="992"></a>992</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="993"></a>993</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="994"></a>994</td><td></td><td></td><td></td><td></td><td class="s">sub _inlined_methods { @{ $_[0]{__immutable}{inlined_methods} || [] } }</td></tr>
<tr><td class="h"><a name="995"></a>995</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="996"></a>996</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 91µs within Class::MOP::Class::_add_inlined_method which was called 33 times, avg 3µs/call:
# 32 times (89µs+0s) by Class::MOP::Class::_inline_constructor at <a href="Class-MOP-Class-pm-block.html#1065">line 1065</a>, avg 3µs/call
# once (2µs+0s) by Class::MOP::Class::_inline_destructor at <a href="Class-MOP-Class-pm-block.html#1098">line 1098</a></div></div>sub _add_inlined_method {</td></tr>
<tr><td class="h"><a name="997"></a>997</td><td class="c3">66</td><td class="c3"><span title="Avg 2µs">111µs</span></td><td></td><td></td><td class="s"> my ( $self, $method ) = @_;</td></tr>
<tr><td class="h"><a name="998"></a>998</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="999"></a>999</td><td></td><td></td><td></td><td></td><td class="s"> push @{ $self->{__immutable}{inlined_methods} ||= [] }, $method;</td></tr>
<tr><td class="h"><a name="1000"></a>1000</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="1001"></a>1001</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1002"></a>1002</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 58.1ms (514µs+57.6) within Class::MOP::Class::_initialize_immutable which was called 51 times, avg 1.14ms/call:
# 51 times (514µs+57.6ms) by Class::MOP::Class::make_immutable at <a href="Class-MOP-Class-pm-block.html#892">line 892</a>, avg 1.14ms/call</div></div>sub _initialize_immutable {</td></tr>
<tr><td class="h"><a name="1003"></a>1003</td><td class="c1">153</td><td class="c0"><span title="Avg 3µs">486µs</span></td><td></td><td></td><td class="s"> my ( $self, %args ) = @_;</td></tr>
<tr><td class="h"><a name="1004"></a>1004</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1005"></a>1005</td><td></td><td></td><td></td><td></td><td class="s"> $self->{__immutable}{options} = \%args;</td></tr>
<tr><td class="h"><a name="1006"></a>1006</td><td></td><td></td><td></td><td></td><td class="s"> $self->_install_inlined_code(%args);<div class="calls"><div class="calls_out"> # spent 57.6ms making 51 calls to <a href="Class-MOP-Class-pm-block.html#1009">Class::MOP::Class::_install_inlined_code</a>, avg 1.13ms/call</div></div></td></tr>
<tr><td class="h"><a name="1007"></a>1007</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="1008"></a>1008</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1009"></a>1009</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 57.6ms (457µs+57.1) within Class::MOP::Class::_install_inlined_code which was called 51 times, avg 1.13ms/call:
# 51 times (457µs+57.1ms) by Class::MOP::Class::_initialize_immutable at <a href="Class-MOP-Class-pm-block.html#1006">line 1006</a>, avg 1.13ms/call</div></div>sub _install_inlined_code {</td></tr>
<tr><td class="h"><a name="1010"></a>1010</td><td class="c0">204</td><td class="c0"><span title="Avg 2µs">423µs</span></td><td></td><td></td><td class="s"> my ( $self, %args ) = @_;</td></tr>
<tr><td class="h"><a name="1011"></a>1011</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1012"></a>1012</td><td></td><td></td><td></td><td></td><td class="s"> # FIXME</td></tr>
<tr><td class="h"><a name="1013"></a>1013</td><td></td><td></td><td></td><td></td><td class="s"> $self->_inline_accessors(%args) if $args{inline_accessors};<div class="calls"><div class="calls_out"> # spent 23.4ms making 32 calls to <a href="Class-MOP-Class-pm-block.html#1026">Class::MOP::Class::_inline_accessors</a>, avg 732µs/call</div></div></td></tr>
<tr><td class="h"><a name="1014"></a>1014</td><td></td><td></td><td></td><td></td><td class="s"> $self->_inline_constructor(%args) if $args{inline_constructor};<div class="calls"><div class="calls_out"> # spent 33.0ms making 32 calls to <a href="Class-MOP-Class-pm-block.html#1034">Class::MOP::Class::_inline_constructor</a>, avg 1.03ms/call</div></div></td></tr>
<tr><td class="h"><a name="1015"></a>1015</td><td></td><td></td><td></td><td></td><td class="s"> $self->_inline_destructor(%args) if $args{inline_destructor};<div class="calls"><div class="calls_out"> # spent 764µs making 1 call to <a href="Class-MOP-Class-pm-block.html#1069">Class::MOP::Class::_inline_destructor</a></div></div></td></tr>
<tr><td class="h"><a name="1016"></a>1016</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="1017"></a>1017</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1018"></a>1018</td><td></td><td></td><td></td><td></td><td class="s">sub _rebless_as_mutable {</td></tr>
<tr><td class="h"><a name="1019"></a>1019</td><td></td><td></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="1020"></a>1020</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1021"></a>1021</td><td></td><td></td><td></td><td></td><td class="s"> bless $self, $self->_get_mutable_metaclass_name;</td></tr>
<tr><td class="h"><a name="1022"></a>1022</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1023"></a>1023</td><td></td><td></td><td></td><td></td><td class="s"> return $self;</td></tr>
<tr><td class="h"><a name="1024"></a>1024</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="1025"></a>1025</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1026"></a>1026</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 23.4ms (453µs+23.0) within Class::MOP::Class::_inline_accessors which was called 32 times, avg 732µs/call:
# 32 times (453µs+23.0ms) by Class::MOP::Class::_install_inlined_code at <a href="Class-MOP-Class-pm-block.html#1013">line 1013</a>, avg 732µs/call</div></div>sub _inline_accessors {</td></tr>
<tr><td class="h"><a name="1027"></a>1027</td><td class="c3">64</td><td class="c3"><span title="Avg 2µs">122µs</span></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="1028"></a>1028</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1029"></a>1029</td><td></td><td></td><td></td><td></td><td class="s"> foreach my $attr_name ( $self->get_attribute_list ) {<div class="calls"><div class="calls_out"> # spent 186µs making 32 calls to <a href="Class-MOP-Mixin-HasAttributes-pm-block.html#83">Class::MOP::Mixin::HasAttributes::get_attribute_list</a>, avg 6µs/call</div></div></td></tr>
<tr><td class="h"><a name="1030"></a>1030</td><td class="c3">68</td><td class="c2"><span title="Avg 3µs">187µs</span></td><td class="c0">136</td><td class="c0">22.8ms</td><td class="s"> $self->get_attribute($attr_name)->install_accessors(1);<div class="calls"><div class="calls_out"> # spent 21.3ms making 67 calls to <a href="Class-MOP-Attribute-pm-block.html#349">Class::MOP::Attribute::install_accessors</a>, avg 318µs/call
# spent 1.09ms making 1 call to <a href="Moose-Meta-Attribute-pm-block.html#542">Moose::Meta::Attribute::install_accessors</a>
# spent 363µs making 68 calls to <a href="Class-MOP-Mixin-HasAttributes-pm-block.html#60">Class::MOP::Mixin::HasAttributes::get_attribute</a>, avg 5µs/call</div></div></td></tr>
<tr><td class="h"><a name="1031"></a>1031</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="1032"></a>1032</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="1033"></a>1033</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1034"></a>1034</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 33.0ms (749µs+32.2) within Class::MOP::Class::_inline_constructor which was called 32 times, avg 1.03ms/call:
# 32 times (749µs+32.2ms) by Class::MOP::Class::_install_inlined_code at <a href="Class-MOP-Class-pm-block.html#1014">line 1014</a>, avg 1.03ms/call</div></div>sub _inline_constructor {</td></tr>
<tr><td class="h"><a name="1035"></a>1035</td><td class="c0">256</td><td class="c0"><span title="Avg 2µs">481µs</span></td><td></td><td></td><td class="s"> my ( $self, %args ) = @_;</td></tr>
<tr><td class="h"><a name="1036"></a>1036</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1037"></a>1037</td><td></td><td></td><td></td><td></td><td class="s"> my $name = $args{constructor_name};</td></tr>
<tr><td class="h"><a name="1038"></a>1038</td><td></td><td></td><td></td><td></td><td class="s"> # A class may not even have a constructor, and that's okay.</td></tr>
<tr><td class="h"><a name="1039"></a>1039</td><td></td><td></td><td></td><td></td><td class="s"> return unless defined $name;</td></tr>
<tr><td class="h"><a name="1040"></a>1040</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1041"></a>1041</td><td></td><td></td><td></td><td></td><td class="s"> if ( $self->has_method($name) && !$args{replace_constructor} ) {<div class="calls"><div class="calls_out"> # spent 1.10ms making 32 calls to <a href="Class-MOP-Mixin-HasMethods-pm-block.html#84">Class::MOP::Mixin::HasMethods::has_method</a>, avg 34µs/call</div></div></td></tr>
<tr><td class="h"><a name="1042"></a>1042</td><td></td><td></td><td></td><td></td><td class="s"> my $class = $self->name;</td></tr>
<tr><td class="h"><a name="1043"></a>1043</td><td></td><td></td><td></td><td></td><td class="s"> warn "Not inlining a constructor for $class since it defines"</td></tr>
<tr><td class="h"><a name="1044"></a>1044</td><td></td><td></td><td></td><td></td><td class="s"> . " its own constructor.\n"</td></tr>
<tr><td class="h"><a name="1045"></a>1045</td><td></td><td></td><td></td><td></td><td class="s"> . "If you are certain you don't need to inline your"</td></tr>
<tr><td class="h"><a name="1046"></a>1046</td><td></td><td></td><td></td><td></td><td class="s"> . " constructor, specify inline_constructor => 0 in your"</td></tr>
<tr><td class="h"><a name="1047"></a>1047</td><td></td><td></td><td></td><td></td><td class="s"> . " call to $class->meta->make_immutable\n";</td></tr>
<tr><td class="h"><a name="1048"></a>1048</td><td></td><td></td><td></td><td></td><td class="s"> return;</td></tr>
<tr><td class="h"><a name="1049"></a>1049</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="1050"></a>1050</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1051"></a>1051</td><td></td><td></td><td></td><td></td><td class="s"> my $constructor_class = $args{constructor_class};</td></tr>
<tr><td class="h"><a name="1052"></a>1052</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1053"></a>1053</td><td></td><td></td><td></td><td></td><td class="s"> Class::MOP::load_class($constructor_class);<div class="calls"><div class="calls_out"> # spent 994µs making 32 calls to <a href="Class-MOP-pm-block.html#120">Class::MOP::load_class</a>, avg 31µs/call</div></div></td></tr>
<tr><td class="h"><a name="1054"></a>1054</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1055"></a>1055</td><td></td><td></td><td></td><td></td><td class="s"> my $constructor = $constructor_class->new(<div class="calls"><div class="calls_out"> # spent 23.9ms making 31 calls to <a href="Class-MOP-Method-Constructor-pm-block.html#16">Class::MOP::Method::Constructor::new</a>, avg 772µs/call
# spent 1.70ms making 1 call to <a href="Moose-Meta-Method-Constructor-pm-block.html#15">Moose::Meta::Method::Constructor::new</a>
# spent 20µs making 32 calls to <a href="Class-MOP-Package-pm-block.html#Class__MOP__Package__name">Class::MOP::Package::name</a>, avg 616ns/call</div></div></td></tr>
<tr><td class="h"><a name="1056"></a>1056</td><td></td><td></td><td></td><td></td><td class="s"> options => \%args,</td></tr>
<tr><td class="h"><a name="1057"></a>1057</td><td></td><td></td><td></td><td></td><td class="s"> metaclass => $self,</td></tr>
<tr><td class="h"><a name="1058"></a>1058</td><td></td><td></td><td></td><td></td><td class="s"> is_inline => 1,</td></tr>
<tr><td class="h"><a name="1059"></a>1059</td><td></td><td></td><td></td><td></td><td class="s"> package_name => $self->name,</td></tr>
<tr><td class="h"><a name="1060"></a>1060</td><td></td><td></td><td></td><td></td><td class="s"> name => $name,</td></tr>
<tr><td class="h"><a name="1061"></a>1061</td><td></td><td></td><td></td><td></td><td class="s"> );</td></tr>
<tr><td class="h"><a name="1062"></a>1062</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1063"></a>1063</td><td class="c3">64</td><td class="c3"><span title="Avg 2µs">111µs</span></td><td class="c0">32</td><td class="c0">2.95ms</td><td class="s"> if ( $args{replace_constructor} or $constructor->can_be_inlined ) {<div class="calls"><div class="calls_out"> # spent 2.95ms making 32 calls to <a href="Class-MOP-Method-Inlined-pm-block.html#32">Class::MOP::Method::Inlined::can_be_inlined</a>, avg 92µs/call</div></div></td></tr>
<tr><td class="h"><a name="1064"></a>1064</td><td></td><td></td><td></td><td></td><td class="s"> $self->add_method( $name => $constructor );<div class="calls"><div class="calls_out"> # spent 1.43ms making 32 calls to <a href="Class-MOP-Mixin-HasMethods-pm-block.html#37">Class::MOP::Mixin::HasMethods::add_method</a>, avg 45µs/call</div></div></td></tr>
<tr><td class="h"><a name="1065"></a>1065</td><td></td><td></td><td></td><td></td><td class="s"> $self->_add_inlined_method($constructor);<div class="calls"><div class="calls_out"> # spent 89µs making 32 calls to <a href="Class-MOP-Class-pm-block.html#996">Class::MOP::Class::_add_inlined_method</a>, avg 3µs/call</div></div></td></tr>
<tr><td class="h"><a name="1066"></a>1066</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="1067"></a>1067</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="1068"></a>1068</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1069"></a>1069</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 764µs (46+719) within Class::MOP::Class::_inline_destructor which was called
# once (46µs+719µs) by Class::MOP::Class::_install_inlined_code at <a href="Class-MOP-Class-pm-block.html#1015">line 1015</a></div></div>sub _inline_destructor {</td></tr>
<tr><td class="h"><a name="1070"></a>1070</td><td class="c3">8</td><td class="c3"><span title="Avg 4µs">31µs</span></td><td></td><td></td><td class="s"> my ( $self, %args ) = @_;</td></tr>
<tr><td class="h"><a name="1071"></a>1071</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1072"></a>1072</td><td></td><td></td><td></td><td></td><td class="s"> ( exists $args{destructor_class} && defined $args{destructor_class} )</td></tr>
<tr><td class="h"><a name="1073"></a>1073</td><td></td><td></td><td></td><td></td><td class="s"> || confess "The 'inline_destructor' option is present, but "</td></tr>
<tr><td class="h"><a name="1074"></a>1074</td><td></td><td></td><td></td><td></td><td class="s"> . "no destructor class was specified";</td></tr>
<tr><td class="h"><a name="1075"></a>1075</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1076"></a>1076</td><td></td><td></td><td></td><td></td><td class="s"> if ( $self->has_method('DESTROY') && ! $args{replace_destructor} ) {<div class="calls"><div class="calls_out"> # spent 31µs making 1 call to <a href="Class-MOP-Mixin-HasMethods-pm-block.html#84">Class::MOP::Mixin::HasMethods::has_method</a></div></div></td></tr>
<tr><td class="h"><a name="1077"></a>1077</td><td></td><td></td><td></td><td></td><td class="s"> my $class = $self->name;</td></tr>
<tr><td class="h"><a name="1078"></a>1078</td><td></td><td></td><td></td><td></td><td class="s"> warn "Not inlining a destructor for $class since it defines"</td></tr>
<tr><td class="h"><a name="1079"></a>1079</td><td></td><td></td><td></td><td></td><td class="s"> . " its own destructor.\n";</td></tr>
<tr><td class="h"><a name="1080"></a>1080</td><td></td><td></td><td></td><td></td><td class="s"> return;</td></tr>
<tr><td class="h"><a name="1081"></a>1081</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="1082"></a>1082</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1083"></a>1083</td><td></td><td></td><td></td><td></td><td class="s"> my $destructor_class = $args{destructor_class};</td></tr>
<tr><td class="h"><a name="1084"></a>1084</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1085"></a>1085</td><td></td><td></td><td></td><td></td><td class="s"> Class::MOP::load_class($destructor_class);<div class="calls"><div class="calls_out"> # spent 27µs making 1 call to <a href="Class-MOP-pm-block.html#120">Class::MOP::load_class</a></div></div></td></tr>
<tr><td class="h"><a name="1086"></a>1086</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1087"></a>1087</td><td></td><td></td><td></td><td></td><td class="s"> return unless $destructor_class->is_needed($self);<div class="calls"><div class="calls_out"> # spent 131µs making 1 call to <a href="Moose-Meta-Method-Destructor-pm-block.html#54">Moose::Meta::Method::Destructor::is_needed</a></div></div></td></tr>
<tr><td class="h"><a name="1088"></a>1088</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1089"></a>1089</td><td></td><td></td><td></td><td></td><td class="s"> my $destructor = $destructor_class->new(<div class="calls"><div class="calls_out"> # spent 350µs making 1 call to <a href="Moose-Meta-Method-Destructor-pm-block.html#18">Moose::Meta::Method::Destructor::new</a>
# spent 700ns making 1 call to <a href="Class-MOP-Package-pm-block.html#Class__MOP__Package__name">Class::MOP::Package::name</a></div></div></td></tr>
<tr><td class="h"><a name="1090"></a>1090</td><td></td><td></td><td></td><td></td><td class="s"> options => \%args,</td></tr>
<tr><td class="h"><a name="1091"></a>1091</td><td></td><td></td><td></td><td></td><td class="s"> metaclass => $self,</td></tr>
<tr><td class="h"><a name="1092"></a>1092</td><td></td><td></td><td></td><td></td><td class="s"> package_name => $self->name,</td></tr>
<tr><td class="h"><a name="1093"></a>1093</td><td></td><td></td><td></td><td></td><td class="s"> name => 'DESTROY'</td></tr>
<tr><td class="h"><a name="1094"></a>1094</td><td></td><td></td><td></td><td></td><td class="s"> );</td></tr>
<tr><td class="h"><a name="1095"></a>1095</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1096"></a>1096</td><td class="c3">2</td><td class="c3"><span title="Avg 2µs">4µs</span></td><td class="c3">1</td><td class="c3">126µs</td><td class="s"> if ( $args{replace_destructor} or $destructor->can_be_inlined ) {<div class="calls"><div class="calls_out"> # spent 126µs making 1 call to <a href="Class-MOP-Method-Inlined-pm-block.html#32">Class::MOP::Method::Inlined::can_be_inlined</a></div></div></td></tr>
<tr><td class="h"><a name="1097"></a>1097</td><td></td><td></td><td></td><td></td><td class="s"> $self->add_method( 'DESTROY' => $destructor );<div class="calls"><div class="calls_out"> # spent 51µs making 1 call to <a href="Class-MOP-Mixin-HasMethods-pm-block.html#37">Class::MOP::Mixin::HasMethods::add_method</a></div></div></td></tr>
<tr><td class="h"><a name="1098"></a>1098</td><td></td><td></td><td></td><td></td><td class="s"> $self->_add_inlined_method($destructor);<div class="calls"><div class="calls_out"> # spent 2µs making 1 call to <a href="Class-MOP-Class-pm-block.html#996">Class::MOP::Class::_add_inlined_method</a></div></div></td></tr>
<tr><td class="h"><a name="1099"></a>1099</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="1100"></a>1100</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="1101"></a>1101</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1102"></a>1102</td><td class="c3">1</td><td class="c3"><span title="Avg 7µs">7µs</span></td><td></td><td></td><td class="s">1;</td></tr>
<tr><td class="h"><a name="1103"></a>1103</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1104"></a>1104</td><td></td><td></td><td></td><td></td><td class="s">__END__</td></tr>
<tr><td class="h"><a name="1105"></a>1105</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1106"></a>1106</td><td></td><td></td><td></td><td></td><td class="s">=pod</td></tr>
<tr><td class="h"><a name="1107"></a>1107</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1108"></a>1108</td><td></td><td></td><td></td><td></td><td class="s">=head1 NAME</td></tr>
<tr><td class="h"><a name="1109"></a>1109</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1110"></a>1110</td><td></td><td></td><td></td><td></td><td class="s">Class::MOP::Class - Class Meta Object</td></tr>
<tr><td class="h"><a name="1111"></a>1111</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1112"></a>1112</td><td></td><td></td><td></td><td></td><td class="s">=head1 SYNOPSIS</td></tr>
<tr><td class="h"><a name="1113"></a>1113</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1114"></a>1114</td><td></td><td></td><td></td><td></td><td class="s"> # assuming that class Foo</td></tr>
<tr><td class="h"><a name="1115"></a>1115</td><td></td><td></td><td></td><td></td><td class="s"> # has been defined, you can</td></tr>
<tr><td class="h"><a name="1116"></a>1116</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1117"></a>1117</td><td></td><td></td><td></td><td></td><td class="s"> # use this for introspection ...</td></tr>
<tr><td class="h"><a name="1118"></a>1118</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1119"></a>1119</td><td></td><td></td><td></td><td></td><td class="s"> # add a method to Foo ...</td></tr>
<tr><td class="h"><a name="1120"></a>1120</td><td></td><td></td><td></td><td></td><td class="s"> Foo->meta->add_method( 'bar' => sub {...} )</td></tr>
<tr><td class="h"><a name="1121"></a>1121</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1122"></a>1122</td><td></td><td></td><td></td><td></td><td class="s"> # get a list of all the classes searched</td></tr>
<tr><td class="h"><a name="1123"></a>1123</td><td></td><td></td><td></td><td></td><td class="s"> # the method dispatcher in the correct order</td></tr>
<tr><td class="h"><a name="1124"></a>1124</td><td></td><td></td><td></td><td></td><td class="s"> Foo->meta->class_precedence_list()</td></tr>
<tr><td class="h"><a name="1125"></a>1125</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1126"></a>1126</td><td></td><td></td><td></td><td></td><td class="s"> # remove a method from Foo</td></tr>
<tr><td class="h"><a name="1127"></a>1127</td><td></td><td></td><td></td><td></td><td class="s"> Foo->meta->remove_method('bar');</td></tr>
<tr><td class="h"><a name="1128"></a>1128</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1129"></a>1129</td><td></td><td></td><td></td><td></td><td class="s"> # or use this to actually create classes ...</td></tr>
<tr><td class="h"><a name="1130"></a>1130</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1131"></a>1131</td><td></td><td></td><td></td><td></td><td class="s"> Class::MOP::Class->create(</td></tr>
<tr><td class="h"><a name="1132"></a>1132</td><td></td><td></td><td></td><td></td><td class="s"> 'Bar' => (</td></tr>
<tr><td class="h"><a name="1133"></a>1133</td><td></td><td></td><td></td><td></td><td class="s"> version => '0.01',</td></tr>
<tr><td class="h"><a name="1134"></a>1134</td><td></td><td></td><td></td><td></td><td class="s"> superclasses => ['Foo'],</td></tr>
<tr><td class="h"><a name="1135"></a>1135</td><td></td><td></td><td></td><td></td><td class="s"> attributes => [</td></tr>
<tr><td class="h"><a name="1136"></a>1136</td><td></td><td></td><td></td><td></td><td class="s"> Class::MOP::Attribute->new('$bar'),</td></tr>
<tr><td class="h"><a name="1137"></a>1137</td><td></td><td></td><td></td><td></td><td class="s"> Class::MOP::Attribute->new('$baz'),</td></tr>
<tr><td class="h"><a name="1138"></a>1138</td><td></td><td></td><td></td><td></td><td class="s"> ],</td></tr>
<tr><td class="h"><a name="1139"></a>1139</td><td></td><td></td><td></td><td></td><td class="s"> methods => {</td></tr>
<tr><td class="h"><a name="1140"></a>1140</td><td></td><td></td><td></td><td></td><td class="s"> calculate_bar => sub {...},</td></tr>
<tr><td class="h"><a name="1141"></a>1141</td><td></td><td></td><td></td><td></td><td class="s"> construct_baz => sub {...}</td></tr>
<tr><td class="h"><a name="1142"></a>1142</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="1143"></a>1143</td><td></td><td></td><td></td><td></td><td class="s"> )</td></tr>
<tr><td class="h"><a name="1144"></a>1144</td><td></td><td></td><td></td><td></td><td class="s"> );</td></tr>
<tr><td class="h"><a name="1145"></a>1145</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1146"></a>1146</td><td></td><td></td><td></td><td></td><td class="s">=head1 DESCRIPTION</td></tr>
<tr><td class="h"><a name="1147"></a>1147</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1148"></a>1148</td><td></td><td></td><td></td><td></td><td class="s">The Class Protocol is the largest and most complex part of the</td></tr>
<tr><td class="h"><a name="1149"></a>1149</td><td></td><td></td><td></td><td></td><td class="s">Class::MOP meta-object protocol. It controls the introspection and</td></tr>
<tr><td class="h"><a name="1150"></a>1150</td><td></td><td></td><td></td><td></td><td class="s">manipulation of Perl 5 classes, and it can create them as well. The</td></tr>
<tr><td class="h"><a name="1151"></a>1151</td><td></td><td></td><td></td><td></td><td class="s">best way to understand what this module can do is to read the</td></tr>
<tr><td class="h"><a name="1152"></a>1152</td><td></td><td></td><td></td><td></td><td class="s">documentation for each of its methods.</td></tr>
<tr><td class="h"><a name="1153"></a>1153</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1154"></a>1154</td><td></td><td></td><td></td><td></td><td class="s">=head1 INHERITANCE</td></tr>
<tr><td class="h"><a name="1155"></a>1155</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1156"></a>1156</td><td></td><td></td><td></td><td></td><td class="s">C<Class::MOP::Class> is a subclass of L<Class::MOP::Module>.</td></tr>
<tr><td class="h"><a name="1157"></a>1157</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1158"></a>1158</td><td></td><td></td><td></td><td></td><td class="s">=head1 METHODS</td></tr>
<tr><td class="h"><a name="1159"></a>1159</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1160"></a>1160</td><td></td><td></td><td></td><td></td><td class="s">=head2 Class construction</td></tr>
<tr><td class="h"><a name="1161"></a>1161</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1162"></a>1162</td><td></td><td></td><td></td><td></td><td class="s">These methods all create new C<Class::MOP::Class> objects. These</td></tr>
<tr><td class="h"><a name="1163"></a>1163</td><td></td><td></td><td></td><td></td><td class="s">objects can represent existing classes or they can be used to create</td></tr>
<tr><td class="h"><a name="1164"></a>1164</td><td></td><td></td><td></td><td></td><td class="s">new classes from scratch.</td></tr>
<tr><td class="h"><a name="1165"></a>1165</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1166"></a>1166</td><td></td><td></td><td></td><td></td><td class="s">The metaclass object for a given class is a singleton. If you attempt</td></tr>
<tr><td class="h"><a name="1167"></a>1167</td><td></td><td></td><td></td><td></td><td class="s">to create a metaclass for the same class twice, you will just get the</td></tr>
<tr><td class="h"><a name="1168"></a>1168</td><td></td><td></td><td></td><td></td><td class="s">existing object.</td></tr>
<tr><td class="h"><a name="1169"></a>1169</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1170"></a>1170</td><td></td><td></td><td></td><td></td><td class="s">=over 4</td></tr>
<tr><td class="h"><a name="1171"></a>1171</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1172"></a>1172</td><td></td><td></td><td></td><td></td><td class="s">=item B<< Class::MOP::Class->create($package_name, %options) >></td></tr>
<tr><td class="h"><a name="1173"></a>1173</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1174"></a>1174</td><td></td><td></td><td></td><td></td><td class="s">This method creates a new C<Class::MOP::Class> object with the given</td></tr>
<tr><td class="h"><a name="1175"></a>1175</td><td></td><td></td><td></td><td></td><td class="s">package name. It accepts a number of options:</td></tr>
<tr><td class="h"><a name="1176"></a>1176</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1177"></a>1177</td><td></td><td></td><td></td><td></td><td class="s">=over 8</td></tr>
<tr><td class="h"><a name="1178"></a>1178</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1179"></a>1179</td><td></td><td></td><td></td><td></td><td class="s">=item * version</td></tr>
<tr><td class="h"><a name="1180"></a>1180</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1181"></a>1181</td><td></td><td></td><td></td><td></td><td class="s">An optional version number for the newly created package.</td></tr>
<tr><td class="h"><a name="1182"></a>1182</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1183"></a>1183</td><td></td><td></td><td></td><td></td><td class="s">=item * authority</td></tr>
<tr><td class="h"><a name="1184"></a>1184</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1185"></a>1185</td><td></td><td></td><td></td><td></td><td class="s">An optional authority for the newly created package.</td></tr>
<tr><td class="h"><a name="1186"></a>1186</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1187"></a>1187</td><td></td><td></td><td></td><td></td><td class="s">=item * superclasses</td></tr>
<tr><td class="h"><a name="1188"></a>1188</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1189"></a>1189</td><td></td><td></td><td></td><td></td><td class="s">An optional array reference of superclass names.</td></tr>
<tr><td class="h"><a name="1190"></a>1190</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1191"></a>1191</td><td></td><td></td><td></td><td></td><td class="s">=item * methods</td></tr>
<tr><td class="h"><a name="1192"></a>1192</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1193"></a>1193</td><td></td><td></td><td></td><td></td><td class="s">An optional hash reference of methods for the class. The keys of the</td></tr>
<tr><td class="h"><a name="1194"></a>1194</td><td></td><td></td><td></td><td></td><td class="s">hash reference are method names and values are subroutine references.</td></tr>
<tr><td class="h"><a name="1195"></a>1195</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1196"></a>1196</td><td></td><td></td><td></td><td></td><td class="s">=item * attributes</td></tr>
<tr><td class="h"><a name="1197"></a>1197</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1198"></a>1198</td><td></td><td></td><td></td><td></td><td class="s">An optional array reference of L<Class::MOP::Attribute> objects.</td></tr>
<tr><td class="h"><a name="1199"></a>1199</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1200"></a>1200</td><td></td><td></td><td></td><td></td><td class="s">=back</td></tr>
<tr><td class="h"><a name="1201"></a>1201</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1202"></a>1202</td><td></td><td></td><td></td><td></td><td class="s">=item B<< Class::MOP::Class->create_anon_class(%options) >></td></tr>
<tr><td class="h"><a name="1203"></a>1203</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1204"></a>1204</td><td></td><td></td><td></td><td></td><td class="s">This method works just like C<< Class::MOP::Class->create >> but it</td></tr>
<tr><td class="h"><a name="1205"></a>1205</td><td></td><td></td><td></td><td></td><td class="s">creates an "anonymous" class. In fact, the class does have a name, but</td></tr>
<tr><td class="h"><a name="1206"></a>1206</td><td></td><td></td><td></td><td></td><td class="s">that name is a unique name generated internally by this module.</td></tr>
<tr><td class="h"><a name="1207"></a>1207</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1208"></a>1208</td><td></td><td></td><td></td><td></td><td class="s">It accepts the same C<superclasses>, C<methods>, and C<attributes></td></tr>
<tr><td class="h"><a name="1209"></a>1209</td><td></td><td></td><td></td><td></td><td class="s">parameters that C<create> accepts.</td></tr>
<tr><td class="h"><a name="1210"></a>1210</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1211"></a>1211</td><td></td><td></td><td></td><td></td><td class="s">Anonymous classes are destroyed once the metaclass they are attached</td></tr>
<tr><td class="h"><a name="1212"></a>1212</td><td></td><td></td><td></td><td></td><td class="s">to goes out of scope, and will be removed from Perl's internal symbol</td></tr>
<tr><td class="h"><a name="1213"></a>1213</td><td></td><td></td><td></td><td></td><td class="s">table.</td></tr>
<tr><td class="h"><a name="1214"></a>1214</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1215"></a>1215</td><td></td><td></td><td></td><td></td><td class="s">All instances of an anonymous class keep a special reference to the</td></tr>
<tr><td class="h"><a name="1216"></a>1216</td><td></td><td></td><td></td><td></td><td class="s">metaclass object, which prevents the metaclass from going out of scope</td></tr>
<tr><td class="h"><a name="1217"></a>1217</td><td></td><td></td><td></td><td></td><td class="s">while any instances exist.</td></tr>
<tr><td class="h"><a name="1218"></a>1218</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1219"></a>1219</td><td></td><td></td><td></td><td></td><td class="s">This only works if the instance is based on a hash reference, however.</td></tr>
<tr><td class="h"><a name="1220"></a>1220</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1221"></a>1221</td><td></td><td></td><td></td><td></td><td class="s">=item B<< Class::MOP::Class->initialize($package_name, %options) >></td></tr>
<tr><td class="h"><a name="1222"></a>1222</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1223"></a>1223</td><td></td><td></td><td></td><td></td><td class="s">This method will initialize a C<Class::MOP::Class> object for the</td></tr>
<tr><td class="h"><a name="1224"></a>1224</td><td></td><td></td><td></td><td></td><td class="s">named package. Unlike C<create>, this method I<will not> create a new</td></tr>
<tr><td class="h"><a name="1225"></a>1225</td><td></td><td></td><td></td><td></td><td class="s">class.</td></tr>
<tr><td class="h"><a name="1226"></a>1226</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1227"></a>1227</td><td></td><td></td><td></td><td></td><td class="s">The purpose of this method is to retrieve a C<Class::MOP::Class></td></tr>
<tr><td class="h"><a name="1228"></a>1228</td><td></td><td></td><td></td><td></td><td class="s">object for introspecting an existing class.</td></tr>
<tr><td class="h"><a name="1229"></a>1229</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1230"></a>1230</td><td></td><td></td><td></td><td></td><td class="s">If an existing C<Class::MOP::Class> object exists for the named</td></tr>
<tr><td class="h"><a name="1231"></a>1231</td><td></td><td></td><td></td><td></td><td class="s">package, it will be returned, and any options provided will be</td></tr>
<tr><td class="h"><a name="1232"></a>1232</td><td></td><td></td><td></td><td></td><td class="s">ignored!</td></tr>
<tr><td class="h"><a name="1233"></a>1233</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1234"></a>1234</td><td></td><td></td><td></td><td></td><td class="s">If the object does not yet exist, it will be created.</td></tr>
<tr><td class="h"><a name="1235"></a>1235</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1236"></a>1236</td><td></td><td></td><td></td><td></td><td class="s">The valid options that can be passed to this method are</td></tr>
<tr><td class="h"><a name="1237"></a>1237</td><td></td><td></td><td></td><td></td><td class="s">C<attribute_metaclass>, C<method_metaclass>,</td></tr>
<tr><td class="h"><a name="1238"></a>1238</td><td></td><td></td><td></td><td></td><td class="s">C<wrapped_method_metaclass>, and C<instance_metaclass>. These are all</td></tr>
<tr><td class="h"><a name="1239"></a>1239</td><td></td><td></td><td></td><td></td><td class="s">optional, and default to the appropriate class in the C<Class::MOP></td></tr>
<tr><td class="h"><a name="1240"></a>1240</td><td></td><td></td><td></td><td></td><td class="s">distribution.</td></tr>
<tr><td class="h"><a name="1241"></a>1241</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1242"></a>1242</td><td></td><td></td><td></td><td></td><td class="s">=back</td></tr>
<tr><td class="h"><a name="1243"></a>1243</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1244"></a>1244</td><td></td><td></td><td></td><td></td><td class="s">=head2 Object instance construction and cloning</td></tr>
<tr><td class="h"><a name="1245"></a>1245</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1246"></a>1246</td><td></td><td></td><td></td><td></td><td class="s">These methods are all related to creating and/or cloning object</td></tr>
<tr><td class="h"><a name="1247"></a>1247</td><td></td><td></td><td></td><td></td><td class="s">instances.</td></tr>
<tr><td class="h"><a name="1248"></a>1248</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1249"></a>1249</td><td></td><td></td><td></td><td></td><td class="s">=over 4</td></tr>
<tr><td class="h"><a name="1250"></a>1250</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1251"></a>1251</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->clone_object($instance, %params) >></td></tr>
<tr><td class="h"><a name="1252"></a>1252</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1253"></a>1253</td><td></td><td></td><td></td><td></td><td class="s">This method clones an existing object instance. Any parameters you</td></tr>
<tr><td class="h"><a name="1254"></a>1254</td><td></td><td></td><td></td><td></td><td class="s">provide are will override existing attribute values in the object.</td></tr>
<tr><td class="h"><a name="1255"></a>1255</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1256"></a>1256</td><td></td><td></td><td></td><td></td><td class="s">This is a convenience method for cloning an object instance, then</td></tr>
<tr><td class="h"><a name="1257"></a>1257</td><td></td><td></td><td></td><td></td><td class="s">blessing it into the appropriate package.</td></tr>
<tr><td class="h"><a name="1258"></a>1258</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1259"></a>1259</td><td></td><td></td><td></td><td></td><td class="s">You could implement a clone method in your class, using this method:</td></tr>
<tr><td class="h"><a name="1260"></a>1260</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1261"></a>1261</td><td></td><td></td><td></td><td></td><td class="s"> sub clone {</td></tr>
<tr><td class="h"><a name="1262"></a>1262</td><td></td><td></td><td></td><td></td><td class="s"> my ($self, %params) = @_;</td></tr>
<tr><td class="h"><a name="1263"></a>1263</td><td></td><td></td><td></td><td></td><td class="s"> $self->meta->clone_object($self, %params);</td></tr>
<tr><td class="h"><a name="1264"></a>1264</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="1265"></a>1265</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1266"></a>1266</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->rebless_instance($instance, %params) >></td></tr>
<tr><td class="h"><a name="1267"></a>1267</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1268"></a>1268</td><td></td><td></td><td></td><td></td><td class="s">This method changes the class of C<$instance> to the metaclass's class.</td></tr>
<tr><td class="h"><a name="1269"></a>1269</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1270"></a>1270</td><td></td><td></td><td></td><td></td><td class="s">You can only rebless an instance into a subclass of its current</td></tr>
<tr><td class="h"><a name="1271"></a>1271</td><td></td><td></td><td></td><td></td><td class="s">class. If you pass any additional parameters, these will be treated</td></tr>
<tr><td class="h"><a name="1272"></a>1272</td><td></td><td></td><td></td><td></td><td class="s">like constructor parameters and used to initialize the object's</td></tr>
<tr><td class="h"><a name="1273"></a>1273</td><td></td><td></td><td></td><td></td><td class="s">attributes. Any existing attributes that are already set will be</td></tr>
<tr><td class="h"><a name="1274"></a>1274</td><td></td><td></td><td></td><td></td><td class="s">overwritten.</td></tr>
<tr><td class="h"><a name="1275"></a>1275</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1276"></a>1276</td><td></td><td></td><td></td><td></td><td class="s">Before reblessing the instance, this method will call</td></tr>
<tr><td class="h"><a name="1277"></a>1277</td><td></td><td></td><td></td><td></td><td class="s">C<rebless_instance_away> on the instance's current metaclass. This method</td></tr>
<tr><td class="h"><a name="1278"></a>1278</td><td></td><td></td><td></td><td></td><td class="s">will be passed the instance, the new metaclass, and any parameters</td></tr>
<tr><td class="h"><a name="1279"></a>1279</td><td></td><td></td><td></td><td></td><td class="s">specified to C<rebless_instance>. By default, C<rebless_instance_away></td></tr>
<tr><td class="h"><a name="1280"></a>1280</td><td></td><td></td><td></td><td></td><td class="s">does nothing; it is merely a hook.</td></tr>
<tr><td class="h"><a name="1281"></a>1281</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1282"></a>1282</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->rebless_instance_back($instance) >></td></tr>
<tr><td class="h"><a name="1283"></a>1283</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1284"></a>1284</td><td></td><td></td><td></td><td></td><td class="s">Does the same thing as C<rebless_instance>, except that you can only</td></tr>
<tr><td class="h"><a name="1285"></a>1285</td><td></td><td></td><td></td><td></td><td class="s">rebless an instance into one of its superclasses. Any attributes that</td></tr>
<tr><td class="h"><a name="1286"></a>1286</td><td></td><td></td><td></td><td></td><td class="s">do not exist in the superclass will be deinitialized.</td></tr>
<tr><td class="h"><a name="1287"></a>1287</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1288"></a>1288</td><td></td><td></td><td></td><td></td><td class="s">This is a much more dangerous operation than C<rebless_instance>,</td></tr>
<tr><td class="h"><a name="1289"></a>1289</td><td></td><td></td><td></td><td></td><td class="s">especially when multiple inheritance is involved, so use this carefully!</td></tr>
<tr><td class="h"><a name="1290"></a>1290</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1291"></a>1291</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->new_object(%params) >></td></tr>
<tr><td class="h"><a name="1292"></a>1292</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1293"></a>1293</td><td></td><td></td><td></td><td></td><td class="s">This method is used to create a new object of the metaclass's</td></tr>
<tr><td class="h"><a name="1294"></a>1294</td><td></td><td></td><td></td><td></td><td class="s">class. Any parameters you provide are used to initialize the</td></tr>
<tr><td class="h"><a name="1295"></a>1295</td><td></td><td></td><td></td><td></td><td class="s">instance's attributes. A special C<__INSTANCE__> key can be passed to</td></tr>
<tr><td class="h"><a name="1296"></a>1296</td><td></td><td></td><td></td><td></td><td class="s">provide an already generated instance, rather than having Class::MOP</td></tr>
<tr><td class="h"><a name="1297"></a>1297</td><td></td><td></td><td></td><td></td><td class="s">generate it for you. This is mostly useful for using Class::MOP with</td></tr>
<tr><td class="h"><a name="1298"></a>1298</td><td></td><td></td><td></td><td></td><td class="s">foreign classes which generate instances using their own constructors.</td></tr>
<tr><td class="h"><a name="1299"></a>1299</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1300"></a>1300</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->instance_metaclass >></td></tr>
<tr><td class="h"><a name="1301"></a>1301</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1302"></a>1302</td><td></td><td></td><td></td><td></td><td class="s">Returns the class name of the instance metaclass. See</td></tr>
<tr><td class="h"><a name="1303"></a>1303</td><td></td><td></td><td></td><td></td><td class="s">L<Class::MOP::Instance> for more information on the instance</td></tr>
<tr><td class="h"><a name="1304"></a>1304</td><td></td><td></td><td></td><td></td><td class="s">metaclass.</td></tr>
<tr><td class="h"><a name="1305"></a>1305</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1306"></a>1306</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->get_meta_instance >></td></tr>
<tr><td class="h"><a name="1307"></a>1307</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1308"></a>1308</td><td></td><td></td><td></td><td></td><td class="s">Returns an instance of the C<instance_metaclass> to be used in the</td></tr>
<tr><td class="h"><a name="1309"></a>1309</td><td></td><td></td><td></td><td></td><td class="s">construction of a new instance of the class.</td></tr>
<tr><td class="h"><a name="1310"></a>1310</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1311"></a>1311</td><td></td><td></td><td></td><td></td><td class="s">=back</td></tr>
<tr><td class="h"><a name="1312"></a>1312</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1313"></a>1313</td><td></td><td></td><td></td><td></td><td class="s">=head2 Informational predicates</td></tr>
<tr><td class="h"><a name="1314"></a>1314</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1315"></a>1315</td><td></td><td></td><td></td><td></td><td class="s">These are a few predicate methods for asking information about the</td></tr>
<tr><td class="h"><a name="1316"></a>1316</td><td></td><td></td><td></td><td></td><td class="s">class itself.</td></tr>
<tr><td class="h"><a name="1317"></a>1317</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1318"></a>1318</td><td></td><td></td><td></td><td></td><td class="s">=over 4</td></tr>
<tr><td class="h"><a name="1319"></a>1319</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1320"></a>1320</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->is_anon_class >></td></tr>
<tr><td class="h"><a name="1321"></a>1321</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1322"></a>1322</td><td></td><td></td><td></td><td></td><td class="s">This returns true if the class was created by calling C<<</td></tr>
<tr><td class="h"><a name="1323"></a>1323</td><td></td><td></td><td></td><td></td><td class="s">Class::MOP::Class->create_anon_class >>.</td></tr>
<tr><td class="h"><a name="1324"></a>1324</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1325"></a>1325</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->is_mutable >></td></tr>
<tr><td class="h"><a name="1326"></a>1326</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1327"></a>1327</td><td></td><td></td><td></td><td></td><td class="s">This returns true if the class is still mutable.</td></tr>
<tr><td class="h"><a name="1328"></a>1328</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1329"></a>1329</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->is_immutable >></td></tr>
<tr><td class="h"><a name="1330"></a>1330</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1331"></a>1331</td><td></td><td></td><td></td><td></td><td class="s">This returns true if the class has been made immutable.</td></tr>
<tr><td class="h"><a name="1332"></a>1332</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1333"></a>1333</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->is_pristine >></td></tr>
<tr><td class="h"><a name="1334"></a>1334</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1335"></a>1335</td><td></td><td></td><td></td><td></td><td class="s">A class is I<not> pristine if it has non-inherited attributes or if it</td></tr>
<tr><td class="h"><a name="1336"></a>1336</td><td></td><td></td><td></td><td></td><td class="s">has any generated methods.</td></tr>
<tr><td class="h"><a name="1337"></a>1337</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1338"></a>1338</td><td></td><td></td><td></td><td></td><td class="s">=back</td></tr>
<tr><td class="h"><a name="1339"></a>1339</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1340"></a>1340</td><td></td><td></td><td></td><td></td><td class="s">=head2 Inheritance Relationships</td></tr>
<tr><td class="h"><a name="1341"></a>1341</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1342"></a>1342</td><td></td><td></td><td></td><td></td><td class="s">=over 4</td></tr>
<tr><td class="h"><a name="1343"></a>1343</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1344"></a>1344</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->superclasses(@superclasses) >></td></tr>
<tr><td class="h"><a name="1345"></a>1345</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1346"></a>1346</td><td></td><td></td><td></td><td></td><td class="s">This is a read-write accessor which represents the superclass</td></tr>
<tr><td class="h"><a name="1347"></a>1347</td><td></td><td></td><td></td><td></td><td class="s">relationships of the metaclass's class.</td></tr>
<tr><td class="h"><a name="1348"></a>1348</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1349"></a>1349</td><td></td><td></td><td></td><td></td><td class="s">This is basically sugar around getting and setting C<@ISA>.</td></tr>
<tr><td class="h"><a name="1350"></a>1350</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1351"></a>1351</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->class_precedence_list >></td></tr>
<tr><td class="h"><a name="1352"></a>1352</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1353"></a>1353</td><td></td><td></td><td></td><td></td><td class="s">This returns a list of all of the class's ancestor classes. The</td></tr>
<tr><td class="h"><a name="1354"></a>1354</td><td></td><td></td><td></td><td></td><td class="s">classes are returned in method dispatch order.</td></tr>
<tr><td class="h"><a name="1355"></a>1355</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1356"></a>1356</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->linearized_isa >></td></tr>
<tr><td class="h"><a name="1357"></a>1357</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1358"></a>1358</td><td></td><td></td><td></td><td></td><td class="s">This returns a list based on C<class_precedence_list> but with all</td></tr>
<tr><td class="h"><a name="1359"></a>1359</td><td></td><td></td><td></td><td></td><td class="s">duplicates removed.</td></tr>
<tr><td class="h"><a name="1360"></a>1360</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1361"></a>1361</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->subclasses >></td></tr>
<tr><td class="h"><a name="1362"></a>1362</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1363"></a>1363</td><td></td><td></td><td></td><td></td><td class="s">This returns a list of all subclasses for this class, even indirect</td></tr>
<tr><td class="h"><a name="1364"></a>1364</td><td></td><td></td><td></td><td></td><td class="s">subclasses.</td></tr>
<tr><td class="h"><a name="1365"></a>1365</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1366"></a>1366</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->direct_subclasses >></td></tr>
<tr><td class="h"><a name="1367"></a>1367</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1368"></a>1368</td><td></td><td></td><td></td><td></td><td class="s">This returns a list of immediate subclasses for this class, which does not</td></tr>
<tr><td class="h"><a name="1369"></a>1369</td><td></td><td></td><td></td><td></td><td class="s">include indirect subclasses.</td></tr>
<tr><td class="h"><a name="1370"></a>1370</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1371"></a>1371</td><td></td><td></td><td></td><td></td><td class="s">=back</td></tr>
<tr><td class="h"><a name="1372"></a>1372</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1373"></a>1373</td><td></td><td></td><td></td><td></td><td class="s">=head2 Method introspection</td></tr>
<tr><td class="h"><a name="1374"></a>1374</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1375"></a>1375</td><td></td><td></td><td></td><td></td><td class="s">See L<Class::MOP::Package/Method introspection and creation> for</td></tr>
<tr><td class="h"><a name="1376"></a>1376</td><td></td><td></td><td></td><td></td><td class="s">methods that operate only on the current class. Class::MOP::Class adds</td></tr>
<tr><td class="h"><a name="1377"></a>1377</td><td></td><td></td><td></td><td></td><td class="s">introspection capabilities that take inheritance into account.</td></tr>
<tr><td class="h"><a name="1378"></a>1378</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1379"></a>1379</td><td></td><td></td><td></td><td></td><td class="s">=over 4</td></tr>
<tr><td class="h"><a name="1380"></a>1380</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1381"></a>1381</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->get_all_methods >></td></tr>
<tr><td class="h"><a name="1382"></a>1382</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1383"></a>1383</td><td></td><td></td><td></td><td></td><td class="s">This will traverse the inheritance hierarchy and return a list of all</td></tr>
<tr><td class="h"><a name="1384"></a>1384</td><td></td><td></td><td></td><td></td><td class="s">the L<Class::MOP::Method> objects for this class and its parents.</td></tr>
<tr><td class="h"><a name="1385"></a>1385</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1386"></a>1386</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->find_method_by_name($method_name) >></td></tr>
<tr><td class="h"><a name="1387"></a>1387</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1388"></a>1388</td><td></td><td></td><td></td><td></td><td class="s">This will return a L<Class::MOP::Method> for the specified</td></tr>
<tr><td class="h"><a name="1389"></a>1389</td><td></td><td></td><td></td><td></td><td class="s">C<$method_name>. If the class does not have the specified method, it</td></tr>
<tr><td class="h"><a name="1390"></a>1390</td><td></td><td></td><td></td><td></td><td class="s">returns C<undef></td></tr>
<tr><td class="h"><a name="1391"></a>1391</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1392"></a>1392</td><td></td><td></td><td></td><td></td><td class="s">Unlike C<get_method>, this method I<will> look for the named method in</td></tr>
<tr><td class="h"><a name="1393"></a>1393</td><td></td><td></td><td></td><td></td><td class="s">superclasses.</td></tr>
<tr><td class="h"><a name="1394"></a>1394</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1395"></a>1395</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->get_all_method_names >></td></tr>
<tr><td class="h"><a name="1396"></a>1396</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1397"></a>1397</td><td></td><td></td><td></td><td></td><td class="s">This will return a list of method I<names> for all of this class's</td></tr>
<tr><td class="h"><a name="1398"></a>1398</td><td></td><td></td><td></td><td></td><td class="s">methods, including inherited methods.</td></tr>
<tr><td class="h"><a name="1399"></a>1399</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1400"></a>1400</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->find_all_methods_by_name($method_name) >></td></tr>
<tr><td class="h"><a name="1401"></a>1401</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1402"></a>1402</td><td></td><td></td><td></td><td></td><td class="s">This method looks for the named method in the class and all of its</td></tr>
<tr><td class="h"><a name="1403"></a>1403</td><td></td><td></td><td></td><td></td><td class="s">parents. It returns every matching method it finds in the inheritance</td></tr>
<tr><td class="h"><a name="1404"></a>1404</td><td></td><td></td><td></td><td></td><td class="s">tree, so it returns a list of methods.</td></tr>
<tr><td class="h"><a name="1405"></a>1405</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1406"></a>1406</td><td></td><td></td><td></td><td></td><td class="s">Each method is returned as a hash reference with three keys. The keys</td></tr>
<tr><td class="h"><a name="1407"></a>1407</td><td></td><td></td><td></td><td></td><td class="s">are C<name>, C<class>, and C<code>. The C<code> key has a</td></tr>
<tr><td class="h"><a name="1408"></a>1408</td><td></td><td></td><td></td><td></td><td class="s">L<Class::MOP::Method> object as its value.</td></tr>
<tr><td class="h"><a name="1409"></a>1409</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1410"></a>1410</td><td></td><td></td><td></td><td></td><td class="s">The list of methods is distinct.</td></tr>
<tr><td class="h"><a name="1411"></a>1411</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1412"></a>1412</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->find_next_method_by_name($method_name) >></td></tr>
<tr><td class="h"><a name="1413"></a>1413</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1414"></a>1414</td><td></td><td></td><td></td><td></td><td class="s">This method returns the first method in any superclass matching the</td></tr>
<tr><td class="h"><a name="1415"></a>1415</td><td></td><td></td><td></td><td></td><td class="s">given name. It is effectively the method that C<SUPER::$method_name></td></tr>
<tr><td class="h"><a name="1416"></a>1416</td><td></td><td></td><td></td><td></td><td class="s">would dispatch to.</td></tr>
<tr><td class="h"><a name="1417"></a>1417</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1418"></a>1418</td><td></td><td></td><td></td><td></td><td class="s">=back</td></tr>
<tr><td class="h"><a name="1419"></a>1419</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1420"></a>1420</td><td></td><td></td><td></td><td></td><td class="s">=head2 Attribute introspection and creation</td></tr>
<tr><td class="h"><a name="1421"></a>1421</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1422"></a>1422</td><td></td><td></td><td></td><td></td><td class="s">Because Perl 5 does not have a core concept of attributes in classes,</td></tr>
<tr><td class="h"><a name="1423"></a>1423</td><td></td><td></td><td></td><td></td><td class="s">we can only return information about attributes which have been added</td></tr>
<tr><td class="h"><a name="1424"></a>1424</td><td></td><td></td><td></td><td></td><td class="s">via this class's methods. We cannot discover information about</td></tr>
<tr><td class="h"><a name="1425"></a>1425</td><td></td><td></td><td></td><td></td><td class="s">attributes which are defined in terms of "regular" Perl 5 methods.</td></tr>
<tr><td class="h"><a name="1426"></a>1426</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1427"></a>1427</td><td></td><td></td><td></td><td></td><td class="s">=over 4</td></tr>
<tr><td class="h"><a name="1428"></a>1428</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1429"></a>1429</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->get_attribute($attribute_name) >></td></tr>
<tr><td class="h"><a name="1430"></a>1430</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1431"></a>1431</td><td></td><td></td><td></td><td></td><td class="s">This will return a L<Class::MOP::Attribute> for the specified</td></tr>
<tr><td class="h"><a name="1432"></a>1432</td><td></td><td></td><td></td><td></td><td class="s">C<$attribute_name>. If the class does not have the specified</td></tr>
<tr><td class="h"><a name="1433"></a>1433</td><td></td><td></td><td></td><td></td><td class="s">attribute, it returns C<undef>.</td></tr>
<tr><td class="h"><a name="1434"></a>1434</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1435"></a>1435</td><td></td><td></td><td></td><td></td><td class="s">NOTE that get_attribute does not search superclasses, for that you</td></tr>
<tr><td class="h"><a name="1436"></a>1436</td><td></td><td></td><td></td><td></td><td class="s">need to use C<find_attribute_by_name>.</td></tr>
<tr><td class="h"><a name="1437"></a>1437</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1438"></a>1438</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->has_attribute($attribute_name) >></td></tr>
<tr><td class="h"><a name="1439"></a>1439</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1440"></a>1440</td><td></td><td></td><td></td><td></td><td class="s">Returns a boolean indicating whether or not the class defines the</td></tr>
<tr><td class="h"><a name="1441"></a>1441</td><td></td><td></td><td></td><td></td><td class="s">named attribute. It does not include attributes inherited from parent</td></tr>
<tr><td class="h"><a name="1442"></a>1442</td><td></td><td></td><td></td><td></td><td class="s">classes.</td></tr>
<tr><td class="h"><a name="1443"></a>1443</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1444"></a>1444</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->get_attribute_list >></td></tr>
<tr><td class="h"><a name="1445"></a>1445</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1446"></a>1446</td><td></td><td></td><td></td><td></td><td class="s">This will return a list of attributes I<names> for all attributes</td></tr>
<tr><td class="h"><a name="1447"></a>1447</td><td></td><td></td><td></td><td></td><td class="s">defined in this class.</td></tr>
<tr><td class="h"><a name="1448"></a>1448</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1449"></a>1449</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->get_all_attributes >></td></tr>
<tr><td class="h"><a name="1450"></a>1450</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1451"></a>1451</td><td></td><td></td><td></td><td></td><td class="s">This will traverse the inheritance hierarchy and return a list of all</td></tr>
<tr><td class="h"><a name="1452"></a>1452</td><td></td><td></td><td></td><td></td><td class="s">the L<Class::MOP::Attribute> objects for this class and its parents.</td></tr>
<tr><td class="h"><a name="1453"></a>1453</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1454"></a>1454</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->find_attribute_by_name($attribute_name) >></td></tr>
<tr><td class="h"><a name="1455"></a>1455</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1456"></a>1456</td><td></td><td></td><td></td><td></td><td class="s">This will return a L<Class::MOP::Attribute> for the specified</td></tr>
<tr><td class="h"><a name="1457"></a>1457</td><td></td><td></td><td></td><td></td><td class="s">C<$attribute_name>. If the class does not have the specified</td></tr>
<tr><td class="h"><a name="1458"></a>1458</td><td></td><td></td><td></td><td></td><td class="s">attribute, it returns C<undef>.</td></tr>
<tr><td class="h"><a name="1459"></a>1459</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1460"></a>1460</td><td></td><td></td><td></td><td></td><td class="s">Unlike C<get_attribute>, this attribute I<will> look for the named</td></tr>
<tr><td class="h"><a name="1461"></a>1461</td><td></td><td></td><td></td><td></td><td class="s">attribute in superclasses.</td></tr>
<tr><td class="h"><a name="1462"></a>1462</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1463"></a>1463</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->add_attribute(...) >></td></tr>
<tr><td class="h"><a name="1464"></a>1464</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1465"></a>1465</td><td></td><td></td><td></td><td></td><td class="s">This method accepts either an existing L<Class::MOP::Attribute></td></tr>
<tr><td class="h"><a name="1466"></a>1466</td><td></td><td></td><td></td><td></td><td class="s">object or parameters suitable for passing to that class's C<new></td></tr>
<tr><td class="h"><a name="1467"></a>1467</td><td></td><td></td><td></td><td></td><td class="s">method.</td></tr>
<tr><td class="h"><a name="1468"></a>1468</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1469"></a>1469</td><td></td><td></td><td></td><td></td><td class="s">The attribute provided will be added to the class.</td></tr>
<tr><td class="h"><a name="1470"></a>1470</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1471"></a>1471</td><td></td><td></td><td></td><td></td><td class="s">Any accessor methods defined by the attribute will be added to the</td></tr>
<tr><td class="h"><a name="1472"></a>1472</td><td></td><td></td><td></td><td></td><td class="s">class when the attribute is added.</td></tr>
<tr><td class="h"><a name="1473"></a>1473</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1474"></a>1474</td><td></td><td></td><td></td><td></td><td class="s">If an attribute of the same name already exists, the old attribute</td></tr>
<tr><td class="h"><a name="1475"></a>1475</td><td></td><td></td><td></td><td></td><td class="s">will be removed first.</td></tr>
<tr><td class="h"><a name="1476"></a>1476</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1477"></a>1477</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->remove_attribute($attribute_name) >></td></tr>
<tr><td class="h"><a name="1478"></a>1478</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1479"></a>1479</td><td></td><td></td><td></td><td></td><td class="s">This will remove the named attribute from the class, and</td></tr>
<tr><td class="h"><a name="1480"></a>1480</td><td></td><td></td><td></td><td></td><td class="s">L<Class::MOP::Attribute> object.</td></tr>
<tr><td class="h"><a name="1481"></a>1481</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1482"></a>1482</td><td></td><td></td><td></td><td></td><td class="s">Removing an attribute also removes any accessor methods defined by the</td></tr>
<tr><td class="h"><a name="1483"></a>1483</td><td></td><td></td><td></td><td></td><td class="s">attribute.</td></tr>
<tr><td class="h"><a name="1484"></a>1484</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1485"></a>1485</td><td></td><td></td><td></td><td></td><td class="s">However, note that removing an attribute will only affect I<future></td></tr>
<tr><td class="h"><a name="1486"></a>1486</td><td></td><td></td><td></td><td></td><td class="s">object instances created for this class, not existing instances.</td></tr>
<tr><td class="h"><a name="1487"></a>1487</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1488"></a>1488</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->attribute_metaclass >></td></tr>
<tr><td class="h"><a name="1489"></a>1489</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1490"></a>1490</td><td></td><td></td><td></td><td></td><td class="s">Returns the class name of the attribute metaclass for this class. By</td></tr>
<tr><td class="h"><a name="1491"></a>1491</td><td></td><td></td><td></td><td></td><td class="s">default, this is L<Class::MOP::Attribute>.</td></tr>
<tr><td class="h"><a name="1492"></a>1492</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1493"></a>1493</td><td></td><td></td><td></td><td></td><td class="s">=back</td></tr>
<tr><td class="h"><a name="1494"></a>1494</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1495"></a>1495</td><td></td><td></td><td></td><td></td><td class="s">=head2 Class Immutability</td></tr>
<tr><td class="h"><a name="1496"></a>1496</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1497"></a>1497</td><td></td><td></td><td></td><td></td><td class="s">Making a class immutable "freezes" the class definition. You can no</td></tr>
<tr><td class="h"><a name="1498"></a>1498</td><td></td><td></td><td></td><td></td><td class="s">longer call methods which alter the class, such as adding or removing</td></tr>
<tr><td class="h"><a name="1499"></a>1499</td><td></td><td></td><td></td><td></td><td class="s">methods or attributes.</td></tr>
<tr><td class="h"><a name="1500"></a>1500</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1501"></a>1501</td><td></td><td></td><td></td><td></td><td class="s">Making a class immutable lets us optimize the class by inlining some</td></tr>
<tr><td class="h"><a name="1502"></a>1502</td><td></td><td></td><td></td><td></td><td class="s">methods, and also allows us to optimize some methods on the metaclass</td></tr>
<tr><td class="h"><a name="1503"></a>1503</td><td></td><td></td><td></td><td></td><td class="s">object itself.</td></tr>
<tr><td class="h"><a name="1504"></a>1504</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1505"></a>1505</td><td></td><td></td><td></td><td></td><td class="s">After immutabilization, the metaclass object will cache most informational</td></tr>
<tr><td class="h"><a name="1506"></a>1506</td><td></td><td></td><td></td><td></td><td class="s">methods that returns information about methods or attributes. Methods which</td></tr>
<tr><td class="h"><a name="1507"></a>1507</td><td></td><td></td><td></td><td></td><td class="s">would alter the class, such as C<add_attribute> and C<add_method>, will</td></tr>
<tr><td class="h"><a name="1508"></a>1508</td><td></td><td></td><td></td><td></td><td class="s">throw an error on an immutable metaclass object.</td></tr>
<tr><td class="h"><a name="1509"></a>1509</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1510"></a>1510</td><td></td><td></td><td></td><td></td><td class="s">The immutabilization system in L<Moose> takes much greater advantage</td></tr>
<tr><td class="h"><a name="1511"></a>1511</td><td></td><td></td><td></td><td></td><td class="s">of the inlining features than Class::MOP itself does.</td></tr>
<tr><td class="h"><a name="1512"></a>1512</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1513"></a>1513</td><td></td><td></td><td></td><td></td><td class="s">=over 4</td></tr>
<tr><td class="h"><a name="1514"></a>1514</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1515"></a>1515</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->make_immutable(%options) >></td></tr>
<tr><td class="h"><a name="1516"></a>1516</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1517"></a>1517</td><td></td><td></td><td></td><td></td><td class="s">This method will create an immutable transformer and use it to make</td></tr>
<tr><td class="h"><a name="1518"></a>1518</td><td></td><td></td><td></td><td></td><td class="s">the class and its metaclass object immutable.</td></tr>
<tr><td class="h"><a name="1519"></a>1519</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1520"></a>1520</td><td></td><td></td><td></td><td></td><td class="s">This method accepts the following options:</td></tr>
<tr><td class="h"><a name="1521"></a>1521</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1522"></a>1522</td><td></td><td></td><td></td><td></td><td class="s">=over 8</td></tr>
<tr><td class="h"><a name="1523"></a>1523</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1524"></a>1524</td><td></td><td></td><td></td><td></td><td class="s">=item * inline_accessors</td></tr>
<tr><td class="h"><a name="1525"></a>1525</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1526"></a>1526</td><td></td><td></td><td></td><td></td><td class="s">=item * inline_constructor</td></tr>
<tr><td class="h"><a name="1527"></a>1527</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1528"></a>1528</td><td></td><td></td><td></td><td></td><td class="s">=item * inline_destructor</td></tr>
<tr><td class="h"><a name="1529"></a>1529</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1530"></a>1530</td><td></td><td></td><td></td><td></td><td class="s">These are all booleans indicating whether the specified method(s)</td></tr>
<tr><td class="h"><a name="1531"></a>1531</td><td></td><td></td><td></td><td></td><td class="s">should be inlined.</td></tr>
<tr><td class="h"><a name="1532"></a>1532</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1533"></a>1533</td><td></td><td></td><td></td><td></td><td class="s">By default, accessors and the constructor are inlined, but not the</td></tr>
<tr><td class="h"><a name="1534"></a>1534</td><td></td><td></td><td></td><td></td><td class="s">destructor.</td></tr>
<tr><td class="h"><a name="1535"></a>1535</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1536"></a>1536</td><td></td><td></td><td></td><td></td><td class="s">=item * immutable_trait</td></tr>
<tr><td class="h"><a name="1537"></a>1537</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1538"></a>1538</td><td></td><td></td><td></td><td></td><td class="s">The name of a class which will be used as a parent class for the</td></tr>
<tr><td class="h"><a name="1539"></a>1539</td><td></td><td></td><td></td><td></td><td class="s">metaclass object being made immutable. This "trait" implements the</td></tr>
<tr><td class="h"><a name="1540"></a>1540</td><td></td><td></td><td></td><td></td><td class="s">post-immutability functionality of the metaclass (but not the</td></tr>
<tr><td class="h"><a name="1541"></a>1541</td><td></td><td></td><td></td><td></td><td class="s">transformation itself).</td></tr>
<tr><td class="h"><a name="1542"></a>1542</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1543"></a>1543</td><td></td><td></td><td></td><td></td><td class="s">This defaults to L<Class::MOP::Class::Immutable::Trait>.</td></tr>
<tr><td class="h"><a name="1544"></a>1544</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1545"></a>1545</td><td></td><td></td><td></td><td></td><td class="s">=item * constructor_name</td></tr>
<tr><td class="h"><a name="1546"></a>1546</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1547"></a>1547</td><td></td><td></td><td></td><td></td><td class="s">This is the constructor method name. This defaults to "new".</td></tr>
<tr><td class="h"><a name="1548"></a>1548</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1549"></a>1549</td><td></td><td></td><td></td><td></td><td class="s">=item * constructor_class</td></tr>
<tr><td class="h"><a name="1550"></a>1550</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1551"></a>1551</td><td></td><td></td><td></td><td></td><td class="s">The name of the method metaclass for constructors. It will be used to</td></tr>
<tr><td class="h"><a name="1552"></a>1552</td><td></td><td></td><td></td><td></td><td class="s">generate the inlined constructor. This defaults to</td></tr>
<tr><td class="h"><a name="1553"></a>1553</td><td></td><td></td><td></td><td></td><td class="s">"Class::MOP::Method::Constructor".</td></tr>
<tr><td class="h"><a name="1554"></a>1554</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1555"></a>1555</td><td></td><td></td><td></td><td></td><td class="s">=item * replace_constructor</td></tr>
<tr><td class="h"><a name="1556"></a>1556</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1557"></a>1557</td><td></td><td></td><td></td><td></td><td class="s">This is a boolean indicating whether an existing constructor should be</td></tr>
<tr><td class="h"><a name="1558"></a>1558</td><td></td><td></td><td></td><td></td><td class="s">replaced when inlining a constructor. This defaults to false.</td></tr>
<tr><td class="h"><a name="1559"></a>1559</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1560"></a>1560</td><td></td><td></td><td></td><td></td><td class="s">=item * destructor_class</td></tr>
<tr><td class="h"><a name="1561"></a>1561</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1562"></a>1562</td><td></td><td></td><td></td><td></td><td class="s">The name of the method metaclass for destructors. It will be used to</td></tr>
<tr><td class="h"><a name="1563"></a>1563</td><td></td><td></td><td></td><td></td><td class="s">generate the inlined destructor. This defaults to</td></tr>
<tr><td class="h"><a name="1564"></a>1564</td><td></td><td></td><td></td><td></td><td class="s">"Class::MOP::Method::Denstructor".</td></tr>
<tr><td class="h"><a name="1565"></a>1565</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1566"></a>1566</td><td></td><td></td><td></td><td></td><td class="s">=item * replace_destructor</td></tr>
<tr><td class="h"><a name="1567"></a>1567</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1568"></a>1568</td><td></td><td></td><td></td><td></td><td class="s">This is a boolean indicating whether an existing destructor should be</td></tr>
<tr><td class="h"><a name="1569"></a>1569</td><td></td><td></td><td></td><td></td><td class="s">replaced when inlining a destructor. This defaults to false.</td></tr>
<tr><td class="h"><a name="1570"></a>1570</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1571"></a>1571</td><td></td><td></td><td></td><td></td><td class="s">=back</td></tr>
<tr><td class="h"><a name="1572"></a>1572</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1573"></a>1573</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->immutable_options >></td></tr>
<tr><td class="h"><a name="1574"></a>1574</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1575"></a>1575</td><td></td><td></td><td></td><td></td><td class="s">Returns a hash of the options used when making the class immutable, including</td></tr>
<tr><td class="h"><a name="1576"></a>1576</td><td></td><td></td><td></td><td></td><td class="s">both defaults and anything supplied by the user in the call to C<<</td></tr>
<tr><td class="h"><a name="1577"></a>1577</td><td></td><td></td><td></td><td></td><td class="s">$metaclass->make_immutable >>. This is useful if you need to temporarily make</td></tr>
<tr><td class="h"><a name="1578"></a>1578</td><td></td><td></td><td></td><td></td><td class="s">a class mutable and then restore immutability as it was before.</td></tr>
<tr><td class="h"><a name="1579"></a>1579</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1580"></a>1580</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->make_mutable >></td></tr>
<tr><td class="h"><a name="1581"></a>1581</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1582"></a>1582</td><td></td><td></td><td></td><td></td><td class="s">Calling this method reverse the immutabilization transformation.</td></tr>
<tr><td class="h"><a name="1583"></a>1583</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1584"></a>1584</td><td></td><td></td><td></td><td></td><td class="s">=back</td></tr>
<tr><td class="h"><a name="1585"></a>1585</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1586"></a>1586</td><td></td><td></td><td></td><td></td><td class="s">=head2 Method Modifiers</td></tr>
<tr><td class="h"><a name="1587"></a>1587</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1588"></a>1588</td><td></td><td></td><td></td><td></td><td class="s">Method modifiers are hooks which allow a method to be wrapped with</td></tr>
<tr><td class="h"><a name="1589"></a>1589</td><td></td><td></td><td></td><td></td><td class="s">I<before>, I<after> and I<around> method modifiers. Every time a</td></tr>
<tr><td class="h"><a name="1590"></a>1590</td><td></td><td></td><td></td><td></td><td class="s">method is called, its modifiers are also called.</td></tr>
<tr><td class="h"><a name="1591"></a>1591</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1592"></a>1592</td><td></td><td></td><td></td><td></td><td class="s">A class can modify its own methods, as well as methods defined in</td></tr>
<tr><td class="h"><a name="1593"></a>1593</td><td></td><td></td><td></td><td></td><td class="s">parent classes.</td></tr>
<tr><td class="h"><a name="1594"></a>1594</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1595"></a>1595</td><td></td><td></td><td></td><td></td><td class="s">=head3 How method modifiers work?</td></tr>
<tr><td class="h"><a name="1596"></a>1596</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1597"></a>1597</td><td></td><td></td><td></td><td></td><td class="s">Method modifiers work by wrapping the original method and then</td></tr>
<tr><td class="h"><a name="1598"></a>1598</td><td></td><td></td><td></td><td></td><td class="s">replacing it in the class's symbol table. The wrappers will handle</td></tr>
<tr><td class="h"><a name="1599"></a>1599</td><td></td><td></td><td></td><td></td><td class="s">calling all the modifiers in the appropriate order and preserving the</td></tr>
<tr><td class="h"><a name="1600"></a>1600</td><td></td><td></td><td></td><td></td><td class="s">calling context for the original method.</td></tr>
<tr><td class="h"><a name="1601"></a>1601</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1602"></a>1602</td><td></td><td></td><td></td><td></td><td class="s">The return values of C<before> and C<after> modifiers are</td></tr>
<tr><td class="h"><a name="1603"></a>1603</td><td></td><td></td><td></td><td></td><td class="s">ignored. This is because their purpose is B<not> to filter the input</td></tr>
<tr><td class="h"><a name="1604"></a>1604</td><td></td><td></td><td></td><td></td><td class="s">and output of the primary method (this is done with an I<around></td></tr>
<tr><td class="h"><a name="1605"></a>1605</td><td></td><td></td><td></td><td></td><td class="s">modifier).</td></tr>
<tr><td class="h"><a name="1606"></a>1606</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1607"></a>1607</td><td></td><td></td><td></td><td></td><td class="s">This may seem like an odd restriction to some, but doing this allows</td></tr>
<tr><td class="h"><a name="1608"></a>1608</td><td></td><td></td><td></td><td></td><td class="s">for simple code to be added at the beginning or end of a method call</td></tr>
<tr><td class="h"><a name="1609"></a>1609</td><td></td><td></td><td></td><td></td><td class="s">without altering the function of the wrapped method or placing any</td></tr>
<tr><td class="h"><a name="1610"></a>1610</td><td></td><td></td><td></td><td></td><td class="s">extra responsibility on the code of the modifier.</td></tr>
<tr><td class="h"><a name="1611"></a>1611</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1612"></a>1612</td><td></td><td></td><td></td><td></td><td class="s">Of course if you have more complex needs, you can use the C<around></td></tr>
<tr><td class="h"><a name="1613"></a>1613</td><td></td><td></td><td></td><td></td><td class="s">modifier which allows you to change both the parameters passed to the</td></tr>
<tr><td class="h"><a name="1614"></a>1614</td><td></td><td></td><td></td><td></td><td class="s">wrapped method, as well as its return value.</td></tr>
<tr><td class="h"><a name="1615"></a>1615</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1616"></a>1616</td><td></td><td></td><td></td><td></td><td class="s">Before and around modifiers are called in last-defined-first-called</td></tr>
<tr><td class="h"><a name="1617"></a>1617</td><td></td><td></td><td></td><td></td><td class="s">order, while after modifiers are called in first-defined-first-called</td></tr>
<tr><td class="h"><a name="1618"></a>1618</td><td></td><td></td><td></td><td></td><td class="s">order. So the call tree might looks something like this:</td></tr>
<tr><td class="h"><a name="1619"></a>1619</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1620"></a>1620</td><td></td><td></td><td></td><td></td><td class="s"> before 2</td></tr>
<tr><td class="h"><a name="1621"></a>1621</td><td></td><td></td><td></td><td></td><td class="s"> before 1</td></tr>
<tr><td class="h"><a name="1622"></a>1622</td><td></td><td></td><td></td><td></td><td class="s"> around 2</td></tr>
<tr><td class="h"><a name="1623"></a>1623</td><td></td><td></td><td></td><td></td><td class="s"> around 1</td></tr>
<tr><td class="h"><a name="1624"></a>1624</td><td></td><td></td><td></td><td></td><td class="s"> primary</td></tr>
<tr><td class="h"><a name="1625"></a>1625</td><td></td><td></td><td></td><td></td><td class="s"> around 1</td></tr>
<tr><td class="h"><a name="1626"></a>1626</td><td></td><td></td><td></td><td></td><td class="s"> around 2</td></tr>
<tr><td class="h"><a name="1627"></a>1627</td><td></td><td></td><td></td><td></td><td class="s"> after 1</td></tr>
<tr><td class="h"><a name="1628"></a>1628</td><td></td><td></td><td></td><td></td><td class="s"> after 2</td></tr>
<tr><td class="h"><a name="1629"></a>1629</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1630"></a>1630</td><td></td><td></td><td></td><td></td><td class="s">=head3 What is the performance impact?</td></tr>
<tr><td class="h"><a name="1631"></a>1631</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1632"></a>1632</td><td></td><td></td><td></td><td></td><td class="s">Of course there is a performance cost associated with method</td></tr>
<tr><td class="h"><a name="1633"></a>1633</td><td></td><td></td><td></td><td></td><td class="s">modifiers, but we have made every effort to make that cost directly</td></tr>
<tr><td class="h"><a name="1634"></a>1634</td><td></td><td></td><td></td><td></td><td class="s">proportional to the number of modifier features you use.</td></tr>
<tr><td class="h"><a name="1635"></a>1635</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1636"></a>1636</td><td></td><td></td><td></td><td></td><td class="s">The wrapping method does its best to B<only> do as much work as it</td></tr>
<tr><td class="h"><a name="1637"></a>1637</td><td></td><td></td><td></td><td></td><td class="s">absolutely needs to. In order to do this we have moved some of the</td></tr>
<tr><td class="h"><a name="1638"></a>1638</td><td></td><td></td><td></td><td></td><td class="s">performance costs to set-up time, where they are easier to amortize.</td></tr>
<tr><td class="h"><a name="1639"></a>1639</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1640"></a>1640</td><td></td><td></td><td></td><td></td><td class="s">All this said, our benchmarks have indicated the following:</td></tr>
<tr><td class="h"><a name="1641"></a>1641</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1642"></a>1642</td><td></td><td></td><td></td><td></td><td class="s"> simple wrapper with no modifiers 100% slower</td></tr>
<tr><td class="h"><a name="1643"></a>1643</td><td></td><td></td><td></td><td></td><td class="s"> simple wrapper with simple before modifier 400% slower</td></tr>
<tr><td class="h"><a name="1644"></a>1644</td><td></td><td></td><td></td><td></td><td class="s"> simple wrapper with simple after modifier 450% slower</td></tr>
<tr><td class="h"><a name="1645"></a>1645</td><td></td><td></td><td></td><td></td><td class="s"> simple wrapper with simple around modifier 500-550% slower</td></tr>
<tr><td class="h"><a name="1646"></a>1646</td><td></td><td></td><td></td><td></td><td class="s"> simple wrapper with all 3 modifiers 1100% slower</td></tr>
<tr><td class="h"><a name="1647"></a>1647</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1648"></a>1648</td><td></td><td></td><td></td><td></td><td class="s">These numbers may seem daunting, but you must remember, every feature</td></tr>
<tr><td class="h"><a name="1649"></a>1649</td><td></td><td></td><td></td><td></td><td class="s">comes with some cost. To put things in perspective, just doing a</td></tr>
<tr><td class="h"><a name="1650"></a>1650</td><td></td><td></td><td></td><td></td><td class="s">simple C<AUTOLOAD> which does nothing but extract the name of the</td></tr>
<tr><td class="h"><a name="1651"></a>1651</td><td></td><td></td><td></td><td></td><td class="s">method called and return it costs about 400% over a normal method</td></tr>
<tr><td class="h"><a name="1652"></a>1652</td><td></td><td></td><td></td><td></td><td class="s">call.</td></tr>
<tr><td class="h"><a name="1653"></a>1653</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1654"></a>1654</td><td></td><td></td><td></td><td></td><td class="s">=over 4</td></tr>
<tr><td class="h"><a name="1655"></a>1655</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1656"></a>1656</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->add_before_method_modifier($method_name, $code) >></td></tr>
<tr><td class="h"><a name="1657"></a>1657</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1658"></a>1658</td><td></td><td></td><td></td><td></td><td class="s">This wraps the specified method with the supplied subroutine</td></tr>
<tr><td class="h"><a name="1659"></a>1659</td><td></td><td></td><td></td><td></td><td class="s">reference. The modifier will be called as a method itself, and will</td></tr>
<tr><td class="h"><a name="1660"></a>1660</td><td></td><td></td><td></td><td></td><td class="s">receive the same arguments as are passed to the method.</td></tr>
<tr><td class="h"><a name="1661"></a>1661</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1662"></a>1662</td><td></td><td></td><td></td><td></td><td class="s">When the modifier exits, the wrapped method will be called.</td></tr>
<tr><td class="h"><a name="1663"></a>1663</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1664"></a>1664</td><td></td><td></td><td></td><td></td><td class="s">The return value of the modifier will be ignored.</td></tr>
<tr><td class="h"><a name="1665"></a>1665</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1666"></a>1666</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->add_after_method_modifier($method_name, $code) >></td></tr>
<tr><td class="h"><a name="1667"></a>1667</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1668"></a>1668</td><td></td><td></td><td></td><td></td><td class="s">This wraps the specified method with the supplied subroutine</td></tr>
<tr><td class="h"><a name="1669"></a>1669</td><td></td><td></td><td></td><td></td><td class="s">reference. The modifier will be called as a method itself, and will</td></tr>
<tr><td class="h"><a name="1670"></a>1670</td><td></td><td></td><td></td><td></td><td class="s">receive the same arguments as are passed to the method.</td></tr>
<tr><td class="h"><a name="1671"></a>1671</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1672"></a>1672</td><td></td><td></td><td></td><td></td><td class="s">When the wrapped methods exits, the modifier will be called.</td></tr>
<tr><td class="h"><a name="1673"></a>1673</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1674"></a>1674</td><td></td><td></td><td></td><td></td><td class="s">The return value of the modifier will be ignored.</td></tr>
<tr><td class="h"><a name="1675"></a>1675</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1676"></a>1676</td><td></td><td></td><td></td><td></td><td class="s">=item B<< $metaclass->add_around_method_modifier($method_name, $code) >></td></tr>
<tr><td class="h"><a name="1677"></a>1677</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1678"></a>1678</td><td></td><td></td><td></td><td></td><td class="s">This wraps the specified method with the supplied subroutine</td></tr>
<tr><td class="h"><a name="1679"></a>1679</td><td></td><td></td><td></td><td></td><td class="s">reference.</td></tr>
<tr><td class="h"><a name="1680"></a>1680</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1681"></a>1681</td><td></td><td></td><td></td><td></td><td class="s">The first argument passed to the modifier will be a subroutine</td></tr>
<tr><td class="h"><a name="1682"></a>1682</td><td></td><td></td><td></td><td></td><td class="s">reference to the wrapped method. The second argument is the object,</td></tr>
<tr><td class="h"><a name="1683"></a>1683</td><td></td><td></td><td></td><td></td><td class="s">and after that come any arguments passed when the method is called.</td></tr>
<tr><td class="h"><a name="1684"></a>1684</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1685"></a>1685</td><td></td><td></td><td></td><td></td><td class="s">The around modifier can choose to call the original method, as well as</td></tr>
<tr><td class="h"><a name="1686"></a>1686</td><td></td><td></td><td></td><td></td><td class="s">what arguments to pass if it does so.</td></tr>
<tr><td class="h"><a name="1687"></a>1687</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1688"></a>1688</td><td></td><td></td><td></td><td></td><td class="s">The return value of the modifier is what will be seen by the caller.</td></tr>
<tr><td class="h"><a name="1689"></a>1689</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1690"></a>1690</td><td></td><td></td><td></td><td></td><td class="s">=back</td></tr>
<tr><td class="h"><a name="1691"></a>1691</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1692"></a>1692</td><td></td><td></td><td></td><td></td><td class="s">=head2 Introspection</td></tr>
<tr><td class="h"><a name="1693"></a>1693</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1694"></a>1694</td><td></td><td></td><td></td><td></td><td class="s">=over 4</td></tr>
<tr><td class="h"><a name="1695"></a>1695</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1696"></a>1696</td><td></td><td></td><td></td><td></td><td class="s">=item B<< Class::MOP::Class->meta >></td></tr>
<tr><td class="h"><a name="1697"></a>1697</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1698"></a>1698</td><td></td><td></td><td></td><td></td><td class="s">This will return a L<Class::MOP::Class> instance for this class.</td></tr>
<tr><td class="h"><a name="1699"></a>1699</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1700"></a>1700</td><td></td><td></td><td></td><td></td><td class="s">It should also be noted that L<Class::MOP> will actually bootstrap</td></tr>
<tr><td class="h"><a name="1701"></a>1701</td><td></td><td></td><td></td><td></td><td class="s">this module by installing a number of attribute meta-objects into its</td></tr>
<tr><td class="h"><a name="1702"></a>1702</td><td></td><td></td><td></td><td></td><td class="s">metaclass.</td></tr>
<tr><td class="h"><a name="1703"></a>1703</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1704"></a>1704</td><td></td><td></td><td></td><td></td><td class="s">=back</td></tr>
<tr><td class="h"><a name="1705"></a>1705</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1706"></a>1706</td><td></td><td></td><td></td><td></td><td class="s">=head1 AUTHORS</td></tr>
<tr><td class="h"><a name="1707"></a>1707</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1708"></a>1708</td><td></td><td></td><td></td><td></td><td class="s">Stevan Little E<lt>stevan@iinteractive.comE<gt></td></tr>
<tr><td class="h"><a name="1709"></a>1709</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1710"></a>1710</td><td></td><td></td><td></td><td></td><td class="s">=head1 COPYRIGHT AND LICENSE</td></tr>
<tr><td class="h"><a name="1711"></a>1711</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1712"></a>1712</td><td></td><td></td><td></td><td></td><td class="s">Copyright 2006-2010 by Infinity Interactive, Inc.</td></tr>
<tr><td class="h"><a name="1713"></a>1713</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1714"></a>1714</td><td></td><td></td><td></td><td></td><td class="s">L<http://www.iinteractive.com></td></tr>
<tr><td class="h"><a name="1715"></a>1715</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1716"></a>1716</td><td></td><td></td><td></td><td></td><td class="s">This library is free software; you can redistribute it and/or modify</td></tr>
<tr><td class="h"><a name="1717"></a>1717</td><td></td><td></td><td></td><td></td><td class="s">it under the same terms as Perl itself.</td></tr>
<tr><td class="h"><a name="1718"></a>1718</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1719"></a>1719</td><td></td><td></td><td></td><td></td><td class="s">=cut</td></tr>
<tr><td class="h"><a name="Class__MOP__Class__CORE_match"></a></td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 31µs within Class::MOP::Class::CORE:match which was called 67 times, avg 461ns/call:
# 67 times (31µs+0s) by Class::MOP::Class::is_anon_class at <a href="Class-MOP-Class-pm-block.html#224">line 224 of Class/MOP/Class.pm</a>, avg 461ns/call</div></div>sub Class::MOP::Class::CORE:match; # xsub<br /> </td></tr>
<tr><td class="h"><a name="Class__MOP__Class__CORE_regcomp"></a></td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 10µs within Class::MOP::Class::CORE:regcomp which was called
# once (10µs+0s) by Class::MOP::Class::is_anon_class at <a href="Class-MOP-Class-pm-block.html#224">line 224 of Class/MOP/Class.pm</a></div></div>sub Class::MOP::Class::CORE:regcomp; # xsub<br /> </td></tr>
</tbody></table></div>
<script type="text/javascript"> $(document).ready(function() {
$("#subs_table").tablesorter({
sortList: [[3,1]],
headers: {
3: { sorter: 'fmt_time' },
4: { sorter: 'fmt_time' }
}
});
} ); </script>
<div class="footer">Report produced by the
<a href="http://search.cpan.org/dist/Devel-NYTProf/">NYTProf 3.11</a>
Perl profiler, developed by
<a href="http://www.linkedin.com/in/timbunce">Tim Bunce</a> and
<a href="http://code.nytimes.com">Adam Kaplan</a>.
</div>
<br /><br /><br /><br /><br /><br /><br /><br /><br /><br />
</body></html>